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-00 
“SEP=1984 6:50 (CUETP.SRC GETUNASOO MAR; 1 (1) 
- TITLE UF THWASOO VAX/VMS UETP DEVICE TEST FOR THE UNA 
-IDENT. ‘V04=000' 
-ENABLE SUPPRESSION 


; 
FERRARA EERE EEE EEA AERA EERE RRA RAAAAAAE REE EAEEEA AERA EARTH ETE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONL RDANCE W THE TERMS OF SUCH LICENSE AND WITH 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


o 

® * 
® * 
® * 
® * 
® * 
® * 
® ® 
® ® 
® * 
* TRANSFERRED. “ 
* * 
* ® 
® ® 
® * 
® * 
© ® 
® * 
® ® 
® * 
® * 


Oooo 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onePOnaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS si 


I Y FOR THE USE OR_ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


T 
NOT SUPPLIED BY DIGITAL. 


IAB RARARARAARSAASAARASARARAREARARASARRASASASARR RR RARE SARS SASAR RRA SALAS EASA SS SD | 


++ 

FACILITY: 
This aga will be distributed with VAX/VMS under the CSYSTEST] 
account. 


ABSTRACT: 
This test exercises a UNA device using VMS Q10's. It is run as 
part of the VAX/VMS UETP. 


ENVIRONMENT: 
This program will run in user access mode, with ASTs enabled except 
during error processing. This program requires the following 
privileges and quotas: 


OOCOCOCOSCOCOSCOSCOSCOCOSOOCOOCOOCOOCOCSOOOCSOOOSOOOOOOOOOCOOSoOO 
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AUTHOR: Larry Jones, CREATION DATE: September 03, 1982 
MODIFIED BY: 


V03-010 RNHOO10 Richard N. Holstein 08-Aug-1984 
Extend V03-009 and prevent potential hang. 


v03-009 RNHOO09 Richard N. Holstein, 11-Jul-1984 
Make the test more robust when performing the remote loopback 
operations - allow for the Ethernet's uncertainty by 
retransmitting messages. 


v03-008 RNHOO06 Richard N. Holstein, 15-Feb-1984 
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v03-007 


v03-006 


v03-005 


v03-004 


v03-003 


v03-002 


v03-001 
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Take advantage of new UETP message codes. Fix SSERROR 
interaction with RMS_ERROR. Change UETUNTST_FILSPC field 
to be ASCID instead of ASCIC for better error messages. 


RNHOOO5S Richard N. Holstein, 03-Jan-1984 
Bump MIN_MAXBUF to the new minimum value for the DEUNA. 
RNHOO004 Richard N. Holstein, 19-Dec-1983 


Give correct sentinels to Test Controller. Use LIBS$SIGNAL or 
SPUTMSG throughout, instead of LIBSPUT_OUTPUT. 


RNHOO03 Richard N. Holstein, 06-Dec-1983 
Give an error message and abort execution if the SYSGEN MAXBUF 


parameter is too small. Change wording of CASE_FAILED message. 


RNHO002 Richard N. Holstein, 21-Nov-1983 
Use decimal conversion routine for unit numbers. 
RNHOOO1 Richard N. Holstein, 11-Mar-1983 
Don't signal ending message in EXIT_HANDLER. 
LDJ0002 Larry D. Jones, 28-F eb-1983 
Fixed error message assembly error. 

L0J0001 Larry D. Jones, 10-Feb-1983 


Upgraded to conform to new template standards. 
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Declarations toes 335588 UETP.SRC Cro UNASOO MAR: 1 2 (3) 


a0 § -SBTTL Declarations 
0 ; INCLUDE FILES: 
00 : SYS$LIBRARY:LIB.MLB for general definitions 
88 ; SHRLIB$:UETP.MLB for UETP definitions 
$0 ; 
88 3; MACROS: 
00 . SCHFDEF ; Condition handler frame definitions 
00 SOCDEF ; Device definitions 
00 SDIBDEF ; Device Information Block 
00 SDVIDEF ; SGETDVI ITMLST item codes 
00 SNMADEF ; Network management definition 
00 SSHRDEF ; Shared megenges 
SSYIDEF 3; SGETSYI ITMLST item codes 
SSTSDEF ; Status return 
SUE TUNTDEF 3; UETP unit block offset definitions 
SUETPDEF 3; UETP 
SXMDEF ; XMDRIVER symbols 


-MACRO TBL ENT ENT, VALUE, STRING 
"WORD <ENT@15>! VALUE 
ADDRESS PC2... 


eee . 
-2PC2 exc 
sASCIC_”/STRING/ 
.ENDM TBL_ENT 
EQUATED SYMBOLS: 


Feet) ity number definitions: 
RMSS_ 


00000001 FACILITY = 1 
; SHR message definitions: 
00740000 UETP = UETPS_FACILITY@STS$V_FAC_NO ; Define the UETP facility code 
00 7e ORS UETP$_ABENDD = UETP!SHRS_ABENDD ; Define the UETP message codes 
007410 UETP$-BEGIND = UETP!SHR$—BEGIND 
00741080 UETP$"ENDEDD = UETP!SHR$—ENDEDD 
06741130 UETPS-TEXT = UETP!SHRS_TEX 
3 Internal tag bits...: 
00000000 DUMP_MODEV = 0 ; Set if running in dump mode 
ASSUME DUMP_MODEV EQ 0 ; This so we can BLBx 
th TEST_OVERV = = 1 ; Set when test is over 
000000 SAFE TO UPDV = § ; Set when it's safe to update VETINIDEV 
aia BEGIN MSGV = : Set if ‘BEGIN’ msg has been printed 
0000004 FLAG_SHUTDNV = 4 ; Set to indicate device should be 
; shutdown if errors occur 
84 1D_FNDV = 5 ; Remote UNA found j 
00000 $ BROCST_NEDEDV= 8 ; Broadcast for another UNA required 
000000 LONGORSHRTV = ; Long or short report (if set then short) 
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ODoOOCSoCOCOOOOSCOOSOOOOCOOOOOSoOo 
VIMNGCSCSOACOOCCOSCOCOCOCCO err» 
OOONM $$ WF SONNY MWS NOUS WO 


oooooosco 
COOVMMGOSOSOOSCOOSCOSCOOCOSOOOSoOSoOSCOoOO 


So 
o 
oo 
So 
oo 
oS 
oO 
mm 


90000630 
00000004 


0000002A 
0000001A 


0000000F 
Q000000E 
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00000090 
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=z 
a 
nnunnnne 


NEDEDM 
RTM 


PRM 
RECVPOOL_S1Z 
RW TIME_ID 
TIME_1071 
Dee 


HARD_ADR 
PCSR1 


8 
PCSRISV-SLF TST 
PCSRISS-SLFTST 


LOOP _PROTOCOL 


WRITE SIZE 
READ_SIZE 


PAGES = <<UETUN 
DEVDEP_ 


type inst 
= 1 


TSC_INDSIZ+- 
STZE+- 


ee ee eee ae 


ou 


o 
oO 


“x90 


The following definitions ar 

Note that we use the UETUNTS 

have an ASCID data 
DEVDEP_SIZE 


500 


mo 


° Weeone 
TUNASOO.MAR; 1 


sk to convert lower case to upper 
NIDEV.DAT record size 


EFN used for read request 

EFN used for three minute timer 
Synch miscellaneous system services 
Longest possible process name 
Longest possible controller name 
Longest possible unit number 

Number of device counters in table 
Line counter ID number 

Test AST parameter 

Number of preallocated message block 
Timer ID to prevent hang when Read/write 
Timer ID to prevent over all hang 
Timer ID to use on REQUEST 

UNA Diagnostic buffer size 

Read request buffer size 

Maximum UNA transfer size 

Size of a forward message header 
Counters size 

Minimum value fo SYSGEN's MAXBUF 
Count of retries for remote loopback 


Bete Se Ge Ge Ge Be Se Be Se Ge Se Be Ge Ge Ge Ge Be Ge Se Fe Se Be Se Ge 


nostic buffer offset to the 
ardware address 

nostic buffer offset to the 

1 register contents 

NI cabve connected indicator. 
Internal cable connected indicator 
Self test error code indicator 


Digital loop protocol number 


nding on the device under test. 
ield differently from most tests. 


type. 

7. dependent part of VUETUNT 
; Size of device write buffer 

; Size of device read buffer 


-o3 


together ali of the pieces... 
hich make up a UETP unit block... 


3ep=198¢ baide:so Loetp srcauesunacooemar:1 29° (3) 
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E - ; «..to give to the SEXPREG service below 
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Read-Only Data 
0000 


53 srecratanealndccins * 4 


00000017'010E0000' 
30 80 98 
00000028"910E 9000" 
56 45 44 
00000039'010E0000" 
45 4D 


00000049'010E0000" 


enieataididh 
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0020 0049 
00000053*°0000005B" 
00000000 


00000098 '010E0000' 
000000A9'010E0000" 
20 42 53 $$ 


nneamadintincn | 


ane 28098 
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SUPDEV_GBLSEC 
-ASCI 


OOOO CGCOCOO COO COOCOOCOOoOoOoooo 


OOoOooooooooo°oo 


NO_RMS_AST_TABLE: 
LON R 


o 
OQAQaAa 


INPUT_ITMLST: 
. WORD 


Pd 
oO 
4) 
—, 
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INIDEV_UPDERR 
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Read-Onl 
RODATA, be 
/SYSTEST/ 
/UETUNASOO/ 
/UETSUPDEV/ 
/CTRLNAME/ 
/MODE/ 


/TESTNIADR/ 


MS$_BLN 
RMS$_BUSY 
RMS$_CDA 
RMS$_FAB 


“LONG RMS$~RAB 
NRAT_LENGTH = .-NO_RMS_AST_TABLE 


/SYSSINPUT/ 


64, DVI$_DEVNAM 
BUFFER BUFFER PTR 


/REPORT/ 


/'2XB !2xB / 


/!2XxB **/ 


/Error updating UETINIDEV. 
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; Process name on exit 


This test name 
How we access UETSUPDEV.DAT 
Logical name of controller 


Run mode logical name 


Logical name for remote address testing 


List of errors for which... 
»+eRMS cannot deliver an AST... 
-»-even if one has an ERR= arg 
Note that we can search table... 
«eeVia MATCHC since <31:16>... 
++epattern can't be in <15:0> 


Name of device from which... 
-+ethe test can be aborted 


$GETDVI arg List for SYSSINPUT 

We need the equivalence name 
Terminate the List 

Long or short report logical name 


Device class and type control string 
Device class-onty control string 


Error during exit handler 
DAT./ 
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“19 
“19 
-ASCID /Unrecognized counter in NICE message./ 


AX/VMS cr 
; Descriptor for recursive... 
.translation of TTNAME 


37:49 
-ASCID /Can't test controller !AS, marked as unusable in UVETINIDEV.DAT./ 


-ASCID /The UNA inter-module cable is unplugged./ 
-ASCID /IlLlegal record format in file UETINIDEV.DAT!/ 


-ASCID /WARNING the NI cable is disconnected./ 
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-ASCID /Normal mode startup timeout./ 


oe 


Pp 
Pp 


eASCID \Echo mode transmit/receive loop timeout.\ 

-ASCID /Echo mode shutdown timeout./ 

-ASCID /Transmit to broadcast address startup timeout./ 

-ASCID /Transmit to broadcast address timeout./ 

-ASCID /Transmit to broadcast address shutdown timeout./ 

eASCID /External loopback startup timeout./ 

-ASCID /Hung while trying to transmit during the remote loopback test./ 
-ASCID /Read counters timeout./ 


-ASCID /Sensemode timeout./ 
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Read-Only Dat “SEP-1984 04:26:50 (CUETP.SRCJUETUNASO 
708 59 
74 69 6D 58 000007E3'010E0000' ioe et ay STAM CIS. \xmit=0/ 1: !UW, Length: !4UW #ISUL, ti 'ZT\ 
mit=0/recv= , length: !4UW, message #!5UL, time: ! 
, 3 1 ¢0 Sh 3 3p OBES Go Po or Ones : . 
4 21 9 A $f 4 67 6E C 7F5 
0 65 61 3 32 6D ¢ 0) 
A 65 6D 69 74 20 2C 4C ? : } 3 98 
1D $¢ 
1D 65 TIME_STAMP +? ta MSG: 
69 20 42 53 4F 49 poops 81° 909 * 0810 64 .ASCID SIOSB is !XL, !XL; summary of recent messages follows:\ 
$30 66 OF 30 99 95 Of ab OD 8 
§ 66 6F 20 3 § 6v 6D 7 
67 61 7 ie 65 6D 20 74 6E 65 63 6 843 
3A 73 77 6F 6C 6C 6F 66 20 735 6 TH 65 
SA 366 PASS_MSG: 
66 6F $8 64 3 45 0000 Ogg O10E 0 4 SA 6 -ASCIC /End of pass !UL with !UL iterations at !%D./ 
69 77 20 4C 5 4 20 7 61 +4 
61 ¢: 65 74 69 20 4C 55 21 20 68 74 0874 
44 25 21 20 74 61 20 73 6E 6F 69 6 pase 
088D 68 
088D 9; 
088D 0 3 Table containing the identification for the names of all the 
0880 1 3 UNA device counters. 
088D (23 
088D 7 
088) 374 CNTR_TBL: 
0000088D 088D 75 Poties ©» 
00000887 088D 6 -=.+<TBL_SIZE*6> 
0887 77 TBL_END: 
oaay 379 
$BB7 80 ; *** WARNING *** TBL_SIZE must be modified to reflect the number of entries 
0887 81 ; in Ehe following table. 
0887 Ht ; 
0887 
00000887 0887 4 i rae 
887 5 -LIST MEB 
887 86 TBL_ENT LIN, NMASC_CTLIN_RFL,<packets received in error> 
oooogeee 7 sPPCl os 
4 § D “WORD. <LIN@15>!NMASC _CTLIN_RFL 
0009 iB) F ADDRESS PC2... 
$3 0 73 74 65 6B 63 8! 9" ; -ASCIC /packets received in error/ 
2 0 6E 69 20 64 65 76 $3 oe + 
19 7 
D1 7 -NLIST MEB 
D1 8 TBL_ENT LIN,NMASC_CTLIN_OVR,<receives lost (internal buffer error)> 
F7 89 TBL_ENT LIN, NMASC_CTLIN_LBE, <receives lost (local buffer error)> 
SIA 90 TBL_ENT LIN, NMASC_CTLIN_BSM,<packets transmitted with over 1 collision> 
944 91; TBL_ENT LIN, NMASC_CTLIN_TFL,<transmit packet ; aborte 
944 35 TBL-ENT LIN, NMASC_CTLIN— CBN <transmit collision - 8a failures> 
966 93 ; TBL-ENT LIN, NMASC_CTLIN_NPT,<nu protocas type enabled> 
966 94 TBL-ENT LIN, NMASC_CTLIN_SB U.<system buffer errors> 
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Read-Only Dat 73Eb=1 982 84: 


0 
Q 
64 72 6F 63 65 72 000009FA'010E0000" 


oo 
>>> PPP rr rrr PODDDODD0IO 
WAARIRININ OOOO TT AMMMMO 


PP OS HS SS PMOOCONMNINAS arom 


6:50 


7:49 VAX/VMS Macro V04 Page 1 


buffer errors> 
Table of transfer sizes for echo mode 


; Smallest size transfer 


Smallest pad possible 
No padding done 
Largest transfer with padding on 


Table of transfer sizes for external 
loopback mode 

Smallest size transfer 

Quarter page-1 

Page-1 

Lar "erie transfer with padding off 
TBL_SIZE 


: 10 seconds delta time 


978 95 TBL_ENT LIN, NMASC_CTLIN, UBU, <user 
set 38 SIZE_TBL: : 
0000001 098 98 [LONG 1 : 
a a ; 
00 DA 099A 203 “LONG 1498 : 
004 43 i SIZE_TBL_SIZE = <.-SIZE_TBL>/4 
99E 404 SIZE_TBL1: ; 
90000028 O99 coe LONG 4 : 
a a : 
000005DC O9AA 409 “LONG 1500 : 
at 410 ASSUME << -SIZE_TBL1>/4> EQ SIZE” 
SAE 418 TENSEC: 
FFFFFFFF FAOA1FOO O9AE 41 .LONG -101000*1000*10,-1 
0986 415 TWENSEC: : 
FFFFFFFF F4143E00 0986 41 .LONG -10*1000*1000«20,-1 
O9BE 418 HALFMIN: ; 
FFFFFFFF EE1E5D00 O9BE 419 .LONG -10*1000*1000*30,-1 
096 421 ‘TWOMIN: ; 
FFFFFFFF 88797400 09C6 : .LONG -10*1000*1000*120,-1 
O9CE 424 THREEMIN: : 
FFFFFFFF 946B62E00 O9CE 425 [LONG -10*1000*1000*180,-1 
bone ¢ 3 UNIT_DESC: 
00000005 0906 428 <LONG 5 . 
00000061' 45 : , -ADDRESS BUFFER+6 
DE 431 CONT_DESC: : 
0000 0028 438 WORD SIZE,0 : 
0000005B' : ? - ADDRESS Rerren 
236 FILE: : 
65 6C 69 66 OO0009EE'010E000C" 436 .ASCID /file/ 
4 RECORD: 3 
a3 -ASCID /record/ 
441 RMS_ERR_STRING: 
442 *ASCID. /RMS !AS error in file !AD/ 


443 
444 PROMPT: 
¢ 72 65 6C ¢¢ 6F 72 74 of fF 3 445 -ASCII /Controller designation?: 
A 3F 6E 6F 69 74 61 6E 67 69 73 2 
000000 3 res. PMTSIZ = .-PROMPT 


20 seconds delta time 


30 seconds delta time 


; Two minute delta time 


; 3 minute delta time 


Descriptor used to convert unit # 


Descriptor used to convert controiler... 
-+-from lowercase to uppercase 


Fills in RMS_ERR_STRING 
Fills im RMS_ERR_STRING 


Announces an RMS error 


/ 


QE 


0 
UETP.SRC GETUNASOO. MAR; 1 ( 
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Read-Only Data -SEP-1984 
SR a 


Ar +08 SENSE mame’ td 
SF 90mg guognas 


0 ir) 1 
6:86 YueTP eRcauevuNacoocmar:? f°! 13). 


20 72 6F Nf: 
64 6F 6D 2 


8 
8 25 8 2 


ASCID /Error in sense mode test / 


ONS 


450 
451 ERRTEST_MSG: 
452 -ASCID /Error in error test / 


IN 
os 


453 
454 ASTPAR merttat 
455 ASCID /Error in Q10 AST parameter / 


NEN 
nmr 
ans 
Mov 
NSO 
ero 

So 
Oro 
wroo 

> 
oun 
o— 
aro 
_OoO— 

oOo 
norm 
romeo 

So 
ao 
oo 


45 
OAgA 439 SLFTST of AIL EDS 
458 ASCID /UNA self test failed with an error code of !XL./ 


anrnrws 
+oom 
Conn 
“COOew 
MNAAS 


459 
460 GETSYI_ITMLST: 3 ones system parameters.. 
104F 0004 461 «WORD 4,SYI$_MAXBUF 3 .to see if we have sufficient MAXBUF 
00000000'00000C50' OADS re) SADDRESS MAXBUF 0 
00000000 ret -LONG 0 ; End of ITMLST 
465 MA 


MAXBUF _MSG: Tell user to set adequate SYSGEN param 
-ASCID \The SYSGEN MAXBUF pereneter is only !UL.\- 


oO 
> 
m 
— 


07 
0B11 467 \!/!_This test requires that the value be at least !UL.\ 


WMIiFWw WoOw~ 
SON Aew 
AOU OOW 
AOnNROPUIT 
Vi—WFEMOUo 
ANAOMENLEO 
OAUOONMNRUW 
RPINNUIOUo 
CONMWUM ODE 
NAAN W 
PSUNOOS fa 


NNN ONTO! 
fio Sf -OOWO 
ss 
ea] 
@w 
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ns 469 -SBTTL Read/Write Data 
0000 op o58 -PSECT RWDATA,WRT,NOEXE,PAGE 
472 TTCHAN: ; Channel associated with ctrl. term. 
0000 ° crs -WORD 0 
475 TTNAME_RWPTR: ; Descriptor for recursive... 
0000 0009" 00 $78 «WORD  TTNAME_LEN,O 3 ...translation of TTNAME 
0000000a' 44 47 “ADDRESS TTNAME 
OA 228 TTNAME: 
54 55 50 4E 49 24 53 59 53 QOOA 47 sASC1I /SYSSINPUT/ 
44484 Bete £89 AME _LEN=.-TTNAME 
0000049 BR 18 $3) TOLKe 63-TTNAME _LEN 
sb 288 FLAG: ; Miscellaneous flag bit 
0000 Soe tbe «WORD O ; (See Equated Symbols toe definitions) 
BRee 486 FAO_BUF: ; FAD output string descriptor 
0000 0084 048 487 ~WORD TEXT _BUFFER,O 
0000005B' Bpek o88 -ADDRESS BUFFER 
i 490 BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 0084 005 491 «WORD TEXT _BUFFER,O : A word for length, a word for desc. 
0000005B' Bee 138 -ADDRESS BUFFER 
0058 494 BUFFER: ; FAO output and other misc. buffer 
OOOO00ODF 0058 495 -BLKB TEXT_BUFFER 
OODF 496 
OODF 497 REQUEST_BUF: 
00000688 OO0DF 498 -BLKB REQUEST_BUFSIZ 
068B 499 : ; 
0688 500 DEVDSC: ; Device name descriptor 
0000 000A 0688 501 -WORD MAX_DEV_DESIG,0 
OOO006DA" O6BF 208 - ADDRESS DEV_ NAPE 
06C 50 
06C 504 
06C 505 PROCESS_NAME: ; Process name 
53 41 4€ 55 000006CB'010E0000' Rete 208 -ASCID /UNAS/ 
0000000B O6CF 508 PROCESS_NAME_FREE = MAX _PROC_NAME~-<.-8-PROCESS_NAME> 
000006DA Rock a7 -BLKB “PROCESS_NAME_FREE 
QO6DA 511 DEV_NAME: Device name buffer 
00000669 O6DA I gBuxe MAX_DEV DESIG+MAX _UNIT _pésiG 
OOOOOF 06E9 1 AME_LEN = 7-DEQV_NAME 
06E9 14 
06E9 15 
06E9 16 ‘ 4 
6E9 17 DIB: ; Device Information Block 
0000 0074 06E9 18 -WORD DIBSK_LENGTH,0 
000006F1" O6ED 19 .ADDRESS DIBBOF 
6F 1 0 DIBBUF : 
00000765 a 1 -BLKB DIBSK_LENGTH 
Ae 6 ERROR_COUNT : 3; Cumulative error count at runtime 
00000000 pee : 0 0 


~n 


DE ee 
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4-0 Read/Write Data -SEP=1984 04:26:50 (CUETP.SRCJUETUNASOO.MAR; 1 
769 STATUS: ; Status value on program exit 
00000000 if 4 ? -LONG O th 
760 9 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
00000000 00000000 760 ? ~ em § . 
773 INADDRESS: ; SCRMPSC address storage 
00000000 00000000 077 : LON 0,0 . 
770 4 OUTADDRESS: 
00000000 00000000 44 5 -LONG 0,0 
Bf 5 : UNIT_NUMBER: ; Current dev unit number for GET_LINE 
0000 f ; 8 -WORD 0 
$5 7 40 DEVNAM_LEN: ; Current device name Length 
0000 gf 7 4} »WORD 0 
789 rt: 
0789 545 RANDOM1: 3; Random word #1 
AAAAAAAA 4 44 544 ~ LONG *XAAAAAAAA 
078D 545 
078D 546 RANDOM2: ; Random word #2 
A72EA72E fh ef »LONG “XA72EA72E 
0791 549 ITERATION: ; # of times all tests were executed 
00000000 0791 550 -LONG O 
0795 551 
0795 236 PASS: ; Pass count 
00000000 0795 55 -LONG 0 
0799 554 
0799 555 MSG_BLOCK: ; Auxiliary SGETMSG info 
0000079D 0799 556 -BLKB 4 
0790 557 ; 
079D 558 EXIT_DESC: ; Exit handler descriptor 
00000000 0790 559 . LON 0 
OOOO1SFF* O7A1 560 «ADDRESS EXIT_HANDLER 
00000001 O7A5 561 -LON 
00000769" ie 286 ADDRESS STATUS 
Q7AD 564 ARG_COUNT: ; Argument counter used by ERROR_EXIT 
00000000 fla 565 -LONG 0 
7B1 566 
07B1 567; 
geet 208 ; Head of self-relative UETP unit block List. 
o781 % »ALIGN QUAD 
788 71 
B7e8 UNIT_LIST: ; Head of unit block circular List 
00000000 00000000 iM of? -QUAD 0 
Oo 75 NEW_NODE: ; Newly acquired node address 
00000000 00000000 gre 8 -QUAD 0 
7C 8 RSLLEN: 
00000000 07C 7 -LONG 0O 
7¢C 0 
7¢C 1 RSLBUF : 
00000040 O7CC 2 -LONG 64 
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UE TURAROO VAX/VMS UETP DEVICE TEST FOR THE UNA 1 miioe ty 1 1:37:49 VAX/VMS Agere eS Page 16 | 
v04-00 Read/Write Data -SEP=1984 04:26:50 (CUETP.SRCJUETUNASOO.MAR; 1 (4) | 
00007D4" 0700 583 ADDRESS , +4 | 
$0008 it 3 -BLKB 64 
14 6 CVTRSL: | 
00000000 19 f -LONG 0 | 
1 589 XE_CHAN: 3 UNA circuit ch l 
0000 4 99 "WORD 0 oth hac pine | 
SIA 38 XE_CHAN1: ; UNA circuit channel for protocol 260 
0000 O81A 9 «WORD 0 
pei 94 
1€ 595 ARG_LIST: 
00000834 O081C 96 -BLKL 6 
0834 597 
0834 598 PIBUF: ; Pl Device char buffer 
00000000 00000000 0834 599 -QUAD 0 
083C 600 
083C 601 P2_PARAM: 
OAF1 083C one -WORD NMAS$C_PCLI_BUS ; Buffer size 
000005DC OBes oR7 -LONG MAX_UNABUF "SIZE 
0451 084 605 «WORD NMASC_PCLI_BFN ; Buffer number 
00000005 O86 606 -LONG $5 | 
0B18 $bc8 608 «WORD NMASC_PCLI_PRM ; Promiscuous mode 
00000001 baer oo) -LONG NMASC_STATE_OFF ; OFF 
0B19 Baek 611 «WORD NMASC_PCLI_MLT ; Multicast address state 
00000001 9830 61¢ LONG  NMASCTSTATE_OFF ; OFF | 
0B1B baee 614 -WORD WNMASC_PCLI_DCH ; Data chaining 
00000001 Be26 912 LONG NMASC_STATE_OFF ; OFF 
OB1C QO85A 617 WORD MASC_PCLI ~ ; CRC 
00000000 Hs o18 . LONG NMASC “STATE_ON ; ON 
0B1A 086 620 «WORD NMASC_PCLI_PAD : Padding 
862 621 PAD_SWITCH: 
00000000 peee ° § -LONG NMASC_STATE_ON ; ON 
OBOE 086 624 -WORD NMASC_PCLI_PTY ; Protocol type 
86 625 PROTOCOL: 
00000000 308 ° § -LONG 0 : 0 | 
OB1F O86C 628 .WORD NMASC_PCLI_EKO : Echo mode 
B6E 629 ECHO_SWITCH: | 
00000000 He ? ? «LONG NMASC_STATE_ON ; ON 
0456 70 «6 ‘ .WORD NMASC_PCLI_CON ; Controller mode of | 
0000000 oe ° ? -LONG NMASC"LINCR_NOR ; Normal mode | 
of a 635 «WORD NMASC_PCLI_MCA ; Multicast address 
3 8 7A «66 § . WORD 
01 a: ° = «WORD NMASC_LINMC_SET ; set of 
00 00 02 00 00 AB 7E 639 , -BYTE “XAB,00,00,02,00,00 ; AB-00-00-02-00-00 which is 


a 


UE TUNASOO VAX/VMS UET 
VO4~000 
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P DEVICE TEST FOR THE UNA 19360-1382 gi: 7:49 VAX/VMS Macro V04- 
Read/Write Dat -SEP-1984 


60 
a 4:26:50 (CUETP.SRCJUETUNASOO.MAR; 1 


4 40 ; Digital t 
mone ei P2_DESC: =e gital remote console address 
Soooos se" 8 28 -ADDRESS P2_PARAM 
C gre 
C 45 
C o78 P2_PARAM1: 
OAF 1 C 64 «WORD NMASC_PCLI_BUS ; Buffer size 
000005DC¢ Me e78 «LONG MAX_UNABUF "SIZE 
0451 9 650 -WORD NMASC_PCLI_BFN ; Buff b 
00000005 He eH im 5 ag oP anata 
0818 89 65 »WORD NMASC_PCLI_PRM 3; Promis s d 
00000001 089A 654 "LONG  NMASC"STATE. OFF AO lee sonen Pomme 
0B19 089 656 «WORD NMASC_PCLI_MLT ; Multicast add tat 
00000001 OBA 657 “LONG NMASC"STATE. OFF OB ispecies 
0B1B O8A4 659 «WORD NMAS$C_PCLI_DCH ; Data chaining 
00000001 peas 969 -LONG NMASC"STATE_OFF ; OFF 
OB1C O8AA 66¢ -WORD NMASC_PCLI_CRC ; CRC 
00000000 peat 963 -LONG NMASC_STATE_ON 3; ON 
1A 088 665 «WORD NMASC_PCLI_PAD ; Padding 
00000000 pees 066 -LONG NMASC"STATE_ON ; ON 
$00F 0886 668 «WORD NMASC_PCLI_PTY ; Protocol type 
0000026 pees 967 -LONG  “%X260 ; 60-02 
OB1F O8BC 671 «WORD NMASC_PCLI_EKO ; Echo mode 
00000000 dace 14) «LONG NMASC"STATE_ON ; ON 
0456 OBE: 674 «WORD NMAS$C_PCLI_CON ; Controller mode of 
00000000 434 of? «LONG NMASC"LINCR_NOR ; Loopback mode 
OBOF Ha 677 «WORD NMASC_PCLI_MCA ; Multicast address 
0008 QO8CA 678 . WORD 
0001 pce 679 -WORD NMASC_LINMC_SET ; set of 
00 00 02 00 00 AB O8CE 680 -BYTE *xXAB,00,00,02,00,00 ; AB-00-00-02-00-00 which is 
0804 681 ; Digital remote console address 
08D4 6 § P2_DESC1: 
00000048 D4 6 -LONG  .-P2_PARAM1 
0000088C * oe ° : -ADDRESS P2_PARAM1 
BDC 686 ADR1: ; Read Q10 address to fill in 
OOO008EA 1H} ? -BLKB 14 
EA 689 ADR2: ; Remote UNA hardware address 
000008F 8 f e20 -BLKB 14 
rs $36 BRDCST_BUF : 
6008 F 69 » WORD 9 ; Skip 
00 FA 694 . WORD ; Function = Forward 
FC 695 SELF_ADR: 
00000902 FC 696 -BLKB 6 ; Address of self 


ne 
=n 
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UETUNASOO VAX/VMS UETP DEVICE TEST FOR THE UNA 16-SEP-1984 01:37:49 /VMS Macro 0 
vate Read/Write Data mets Pi 84 :36;$0 tr TP. Sar sGefuNAson MAR; 1 — 
0001 09 97 «WORD 1 ; Function = Repl 
rt 9 38 ~WORD “A/LJ/ Receipt nunber : 
45644 9 8 -BLKB 46=-<.-BRDCST_BUF> Padding 
0002E 2 f BRDCST _BUF _LEN = .-BRDCST_BUF 
9 702 SENSE_P1BUF: 3; Pl ff 
00000000 00000000 9926 7 "QUAD (0 es er, eee, ee ee 
92E 705 SENSE_P2DESC: 3; P2 buff d ip f 
090000090" 09 706 TONG SENSE P2LEN uffer descrip for sense mode test 
00000936' 4 708 - ADDRESS SENSE. P2BUF 
9 709 SENSE_P2BUF : ; P2 buffer for sense mode te 
000009C6 0936 710 LKW <3*#24> ; 8 quad quad words for dev Tederuet ten 
00000090 bare a SENSE _p2ten = . “SENSE _?2BUF ; P2 buffer Length 
09C6 713 ERRTST_P2DESC: ; P2d f test 
00000008" 09¢6 71% “LONG. ERRTST_P2LEN eh caught poets 
OOOO0O9CE' pace fl? - ADDRESS ERRTST_ P2BUF 
O9CE 717 ERRTST het 4 ; P2 buff f 
00000906 O9CE 718 1 ws Stag a Sai aay 
00000008 0906 i ERRTST _paLEN = .“ERRTST_P2BUF 
0906 721 ERRCOUNT_DESC: : £ t buf f d i 
90000080, 0906 728 G_ERRCNT_LEN hale ori Pipe tice apa hs. 
OO0009DE' 8445 f 7 * ADDRESS ERRCNT _BUF 
O9DE 725 ERRCNT_BUF: ; Buff f t 
Q0000BDE O9DE 726 oBLKL — ERRCNT_LEN Me iit gr er ae 
OBDE 728 COUNTER: ; Counter value variable 
00000000 peng 730 -LONG 0O 
dae 2 731 END_ADR: ; Counter table end address 
00000000 OBE 136 -LONG 0 
OBE6 73 
OBE6 734 XE_IOSB: ; Q10 10 status block for transmit 
OOOOOBEE pore 4 2 -BLKQ 1 
OEE 737 RCV_IOSB: ; Q10 Io status block for receive 
00000BF 6 peck 4 | -BLKQ 1 
pare 740 SAVE_STAT: ; Set aside status storage 
0000 F 741 -WORD 0 
pore ms 
OBF 743 XMIT_BUF_ADR: ; Transmit buffer pointer 
00000000 4 Se: “LONG 0 
FC 746 RECV_BUF_ADR: ; Receive buffer pointer 
00000000 43 74 “LONG 0 
C oe 
C 749 DIAG_BUF : 
00000C50 : ai -BLKB DIAG_BUF_SIZE 
iT 7 ¢ MAXBUF : : Value of the SYSGEN MAXBUF param 
00000¢C54 0C 75 -BLKL 1 
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UE TUNASOO VAX/VMS UETP DEVICE TEST FOR THE UNA 16-SEP-1984 01:37:49 VAX/VMS Macro V04-00 Page 19 
V54000 Read/Write Data et 4:36:80 OE TP SRC IUETUNASOO MAR; 1 . (4 
C54 754 
C54 5 LOOPBACK _ACK: ; Flag bytes to signal if some... 
00000C58 0C54 : $ ~BLKB = SIZE_TBL_SIZE 3 ve omesgage was transmitted OK... 
: i «during the remote loopback test 
C 426 SBP: ; Pointer to current slot in... 
oo000csc’ OC 760 -ADDRESS STAMP_BUFFER ; »++STAMP_BUFFER 
CSc = 761 
bE C 186 STAMP _BUFFER: ; Circular List in which to keep time... 
be c ££ ; «.-Stamps for remote loopback msgs 
CSC 3=— 764 -REPEAT 16 ; We will have this many ‘'slots’’, i.e., 
5 . 3 a history of pnts many time stamps 
C5C £98 ; Note that xxxx_STAMP have dependencies built into them for the 
be © £6 ;_contents and Length of the slots defined here. 
CSC 3=—s 768 -BLKW ; Transm */receive flag 
OCc5C £6? -BLKW ; Message length 
ocsc 770 -BLKL ; Message sequence number (ITERATION) 
ocsc) 0s 771 -BLKQ ; Time stamp 
ore ure -ENDR ; End of slot definition 
iis .° _BU 3 me stamp circular List lengt 
00000100 Op5¢ 77 TSC STAMP_BUFFER Ti ircular List l h 
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UE TUNASOO VAX/VMS UETP DEVICE TEST FOR THE UNA 16-SEP-1984 01:37:49 VAX/VMS Macro V04-00 Pa 
v04-000 RMS-32 Data Structures g- seer 4 te 6:50 CUETP.SRC SETUNASOO MAR; 1 2 2, 
DSC 75 -SBTTL RMS-32 Data Structures 
4 : 16 ALIGN LONG 
D5C 778 SYSIN_FAB: ; Allocate FAB for SYSS$INPUT 
D5C ore $F AB- 
44) 4 FNM = <SYSSINPUT> 
DAC 7 SYSIN_RAB: ; Allocate RAB for SYSSINPUT 
DAC 7 5 SRAB- 
ODAC 784 FAB = SYSIN_FAB,=- 
ODAC 785 ROP = PMT,- 
ODAC 7 § PBF = PROMPT,=- 
ODAC 7 PSZ = PMTSIZ,- 
ODAC 788 UBF = DEV_NAME,=- 
ODAC 789 USZ = NAME_LEN 
ODFO 790 
ODFO 791 INI_FAB: ; Allocate FAB for UETINIDEV 
Bore 79 $F AB- 
ODF 79 FAC = <GET,PUT,UPD>,- 
ODFO 794 RAT = CR,- 
ODFO 795 SHR = <GET,PUT,UPI>,= 
ODFO 796 FNM = <UETINIDEV.DAT> 
td 138 INI_RAB ALL RAB f ETINIDE 
_RAB: : ocate or UETINIDEV 
0E40 799 $RAB- 
0E40 800 FAB = INI_FAB,=- 
0E40 801 RBF = BUFFER,-= 
0E40 B06 UBF = BUFFER,- 
0E40 80 USZ = REC_SIZE 
0E84 04 
0E84 805 DDB_RFA: ; RFA storage for INI_RAB 
OOOOODEBA O0F84 806 -BLKB 6 
OE8A 807 
OEBA a8 -ALIGN LONG 
pest 09 SUP_FAB: ; Allocate FAB for UETSUPDEV 
OE8C 810 $F AB- 
OE8C ae FAC = GET,- 
OE8C 1g SHR = <UPI,GET>,- 
OE8C 5] RAT = CR,- 
OE8C 14 FOP = UFO,- 
OE8C 815 FNM = <UETSUPDEV.DAT> 
OEDC 16 
OEDC 17 3 
44: 18 : Dunay FAB and RAB to copy to the UETP unit blocks 
443 y} ; The following FAB and RAB must be contiguous and in this order! 
OEDC 1 
OEDC § DUMMY _FAB: 
EDC SFA 
F2c 4 
FOC 5 DUMMY_RAB: 
F2c 8 $RAB RSZ = WRITE_SIZE,- 
OF 2C USZ = READ_SIZE 


SD 
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VO4-000 a H ; 3 


Main Program 


0000 
6D 13F6"CF ODE 


00" €1 

22 OD9C'CF 
00000000"8F 50 01 
a 
ODCE'CF 860 

0787'CF 
1A 12 
0769°CF  Q00000000'8F 00 
OZFO'CF ODF 
01 oD 
00741132 8F ODD 
03 D 
14EC 1 
O6BB'CF O787°CF 3C 
Q68B°CF ODF 
Q6BB'CF ODF 
sme Et 
a Dg 


50 O6CF CF 
51 


3 

15 

50 3 
O6c3s'cF OF 8B 


F? 
0000 


aw 


SIDS DS DS DOS DS DS DS OS DS TT IT BB BS NNN 
OOO NAUE WN OOD NAME WN 0 OD NAME WIN OOD NOUEWi-2- O00 


CODODo NNN VNYNS 


MEW OOONOUS wh 


»SBTTL 
~PSECT 


=SEP=1984 


Main Program 
UNAS ,EXE ,NOWRT , PAGE 


4:26: 


~-DEFAULT DISPLACEMENT ,WORD 


Start up the UNA test. 


r 


49 \VAX/VMS Macro Le 
50 CUETP.SRCJUETUNASOO.MAR; 1 


This entails some overhead necessary to cope 
with both expected and unforseen conditions, figuring out just what 
devices are to be tested, —7 sure we can test the indicated devices 
and setting up writeable space fo 


each device to be tested. 


-ENTRY UETUNASOO, “M<> ; Entry mask 


MOVAL 


) 

SSETSFM_S ENBFLG = #1 

SDCLEXH"S DESBLK = EXIT_DESC 
F 


SOPEN 


SSERROR, (rP 


3; Declare exception handler 
; Enable system service failure mode 
; Declare an exit handler 


AB = SYSIN_FAB,- ; Open SYSSINPUT 


ERR = RMS_ERROR 


SCONNECT RAB = SYSIN_RAB,- 3 Connect RAB to SYSS$INPUT 


BBC 


STRNLOG_S LOGRAM = CONTROLLER, 


10$: 


" DEVNAM_LEN, DEVDSC 
DEVDSC 


ERR = RMS ERROR 
S*#DEVSV_TRM,- ; 
SYSIN FAB+FABSL_DEV,10$ 


RSLBUF = DEVDSC 
RO, #SS$_NORMAL 
PROC_CONT_NAME 


RAB = SYSIN_RAB,=- 
ERR = 


oon tOP 
ee a controller specified? 


; BR if SYSSINPUT is NOT a terminal 
Allow terminal user to specify... 


aot iy name... 
he controller to test 


R if it was - go process it 


; Read SYSSINPUT... 


.-for the controller name 


RR = RMS_ERROR : 
SYSIN RAB?RABSW_RSZ,- ; Save the name length 


DEVNAA_LEN 
PROC_CONT_NAME 
#SS$~BADPARAM, STATUS 
NO_CTRLNAME 
#UETPS_TEXT!STS$K_ERROR 
ERROR_EXIT 


Bete Se Se Se Se Ge 


DEVDS¢ 
#2,G*°STRSUPCASE 
#1. DEVDSC,R2 

R2 PROCESS NAME 


+m 
-PROCESS_RAME_FRE 
#PROCESS_NAME _F RE 


56 ; 
R1,RO 
#MAX_PROC_NAME ,PROCESS_NAME 


RO 


BR if we got poner sto9 
Save an exit status if not 
Prepare for message... 


;.to tell of bad setup 


Set the device name Length 
Make sure... 


.-that the specified controller... 

.-1S all uppercase for later comaparison 
stimate the eventual... — 
--process name length (incl. ‘*_"’) 


Locate first available byte... 


--iN process name handle... 


-+-for device name 
Will the device name fit... 


in the remaining space? 


BR if it will 


; Overwrite handle otherwise... 
; «.-and define the maximum Length 


Page 21. 
. (6) | 
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TUNASOO VAX/VMS UETP DEVICE TEST FOR THE UNA 16-SEP-1984 01:37:49 VAX/VMS cro V04-00 Page 
VO4-000 Main Program ~$Fb=1 382 gu; 6:50 (CUETP. SRC IUETUNASOD. MAR; 1 ~ 
C 10$ 
80  5F B&F 3 34 MOVB #*A/_/,(RO)* ; Separate handle from device name 
60 O6DA'CF O6BB'CF C § MOVC3 DEVDSC, DEV. NAME , (RO) 3; Concatenate handle with device name 
—E D4 D CLRL (SP) ; Set the time stamp flag 
OOOF'CF OF D PUSHAL TEST. NAME ; get the test name 
D D9 9 PUSHL the argument count 
oor 039 8F ODD dB 9 PUSHL aye ite hb 4t eae succésss ot the message code 
00000 0600 GF uy 4 FB E1 9 CALL 4, G*LIBSSIGNA Print the startup message 
8 A £8 894 BI sw tg GIN_MSGM, FLAG ; Set flag so we don't print it again 
i 95 SETPRN_S PRCNAM = BROCESS _NAME ; Set the process name to UETDMPFOO_x 
00° €1 ao 38 BBC b Z0Evey TRM,- ; BR if SYSSINPUT is NOT a terminal 
66 OD9C'CF FA 898 SYSIN FAB+FABSL eV 20$ 
FE 99 $GETDVI_S DEVRA INP ; Get the name of... 
OFE 00 EFN = #SS_SY NCH EFN,- - ; ...device which may abort test 
Bore 901 ITMLST = INPOT {Tact - 
8 FE on$ 10SB = QUAD ST TATU 
45 076D'CF E9 Q1IA 9 BLBC QUAD _STATUS,20$~ ; Avoid CTRL/C handler if any error 
O1lF 904 SASSIGN_S DEQNAM = BUF poe ee ; Set up for CTRL/C AST handler 
pitF 905 HA = TTCHAN 
130 906 $Q10W_S He = TTCHAN,- nable CTRL/C AST's... 
0130 907 UNC = #10$ $ SétmopE! 108M" CTRLCAST,- 
0130 908 BY = CCASTHAND 
06C3'CF DF 0151 909 PUSHAL PROCESS _NAME ; »e.and tell the user... 
0 DD 0155 910 PUSHL #1 
00748328 8F DD 0157 911 PUSHL ETPS$ = th dete ~succlss"; -»-hew to abort gracefully... 
00000000'GF 03 FB NE a6 208 CALLS »G*LIBSSIGN 7 


aN 


ee on ee 
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UE UnAZOO VAX/VMS UETP DEVICE TEST FOR THE UNA yt i dae 9 g! 7:49 VAX/VMS Macro V04 
v04-0 - 984 04: C 


on” Page 
Main Program SEP=1 6:50 CUETP.SRCJUETUNASOO.MAR; 1 


164 13 3 
164 $16 ; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which gives controller 
164 917 ; and unit configuration and lets us know if the setup to run this test was 
+ 13 ; done correctly. 
164 > SOPEN FAB = INI_FAB,- ; Open file "UETINIDEV.DAT" 
194 1 R = RMS-ERROR 
1 9 ; SCONNECT RAB = INT_RAB,- ; Connect the RAB and FAB 
1773 «9 R = RMS-ERROR 
018 924 SMGBLSC_S _INADR = INADDRESS,- ; Connect to UETSUPDEV global section 
1 925 RETADR = OUTADDRESS,- 
1 3 : GSDNAM = SUPDEV_GBLSEC,~ 
1 FLAGS = #SECSM_EXPREG 
00000000 ' 8F 29 B} tH 4 8 cnr he capa steam 3 vee the section already there? . 
PY WaS.e- 
1AA = 930 SOPEN FAB = SUP_FAB,=- 3 ».-else open "UETSUPDEV.DAT" 
1AA 931 ERR = RMS~ERROR 
1B9 «9 § SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
0189 9 INADR = INADDRESS,- 
01B9 934 RETADR = OUTADDRESS,- 
0189 935 GSDNAM = SUPDEV_GBLSEC ,~ 
3187 339 30$ FLAGS = #SECSM_EXPREG! SECSM_GBL 
56 O781'°CF O77D'CF C3 Bid tH} SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
O1E9 940 FIND_IT: 
O1E9 §= 941 “ $GET RAB = INI_RAB,- ; Get the first record 
O1E9 he ER? = RMS-ERROR 
O9DE ‘CF DF O18 94 PUSHAL CONT_DESC ; Make sure... 
O9DE 'CF DF OFC 944 PUSHAL CONT_DESC 3 «eethat the controller name... 
00000000'GF 02 FB 0200 945 CALLS #2,G*STRSUPCASE s eeetS all uppercase letters 
005B'CF 44 of 4 8505 308 Beer O obamad dae § = core 8 . ? 
: Go on no 
OOSB'CF 45 H 91 QO2O0F 948 CMPB #*A/E/ BUFFER : Is this the end of the file? 
D2. 12 tab 949 BNEQ FIND If : Continue on if not 
O6BB'CF DF 0217 950 PUSHAL DEVDSC ; Push device not supported message 
weet 4 O3iF oe vee 4 eee attas ; Parameters on the stack 
co7sesss BE DB Ges} 358 PUSH eres. pewosu 
09 0209 955 #STSSV-SEVERITY,- 
6E 8 A 228 #STS$S_SEVERITY, (SP) ; Set the severity code... 
0769'CF a re C 32 ot (SP) STATUS 3 ...and save it as the exit status 
1349 Rf 3 $39 108 BRW ERROR_EXIT ; Exit in error 
O6DA'CF 0061°CF orer'ce $3 i: +d ; ina 7) 6 eeeabbeteteedea” : oe pene the right controller? 
OE84'CF QOESO'CF 6 2 0 38 MOVC3 #6, INI_RAB+RABSW_RFA,DDB_RFA ; Save the Record File Address 
OOSF ‘CF 54 1 4A 8964 CMPB #°A/T/-BUFFER+4 ; Can we test this controller? 
: a 5 965 B FOUND {T ; BR if we can... 
; o98 SFAO_S CTRSTR = DEAD_CTRLNAME,- ; ...and yell at user if we can't 
96 OUTLEN = BUFFER_PTR,- 
5 208 OUTBUF = FAO_BUF,- 
0769'CF O00000000'8F D0 36 39 MOVL WSS$ pADPARin STATUS ; Set return status 
$008: er DF 559% 971 PUSHAL BUFFER_PTR ~ pet 


c 


vlg5 


4 
00741132 8F 
12FA 


O9DE ' CF 


O9DE * CF 

00000900 ° GF 2 
OOSB'CF 55 4 
F 

9 


COSB'CF 44 
OOSB'CF 45 8F 
11 

O3DA'CF 

01 

00741132 8F 
12B3 

0128 


OOSF'CF 54 8F 


09 
00000000 ' GF 


uw oO 

o ou 

oc oO 

= @m 
MOVIE NMVIO: 


0770'DF 56 0058'°CF 96 


0770'DF 56 O0058'CF 


0p 
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Main Program 


DD 78 ? 
DD PA 358 
Bo ase 
1 f? 
979 
: 978 
979 
DF 94 980 
DF 98 8981 
FB 9 9 § 
3 A 9 
1 A 984 
91 AB 985 
13 Bi on9 
91 0283 98 
13 0289 988 
Q02BB 8989 
DF O2BB 990 
DD QO2BF 991 
DD Q2C1 838 
Bp Qec? 99 
1 0209 994 
O2ecc 995 
31 O2CC 996 
O2CF 997 
91 O2CF 998 
12 0205 (999 
DD Q2D7 1000 
DD QO2D9 1001 
DF OQ2DB One 
DF O2DF 100 
FB QO2E3S 1004 
9 EA 1005 
B ED 4 
Fe Ov 
D7 O2F 008 
38 FS 1009 
D6 F9 1010 
Al Fe Bi 
3¢ 0 \§ 
28 8 8 101 
E 14 
5 1016 
8 1017 
D 101 
D 101 
Si 
B 10 
D 
Dd 
p 


me a ed ad ed ed dd 


ROPOMOPoPoNoPofnofny 


LAWALL A AIA AAI AIA AAI AAIWIW 


AALS &SMNMPNNNNOOCOS 


—wWw Aw oo 
NO Wo >> 
COoOOooooooooooo 


WNOUSWN—OOo 


FOUND_IT: 


10$: 


20$: 
30$: 


PUSHL #1 ; 
PUSHL #UETPS_TEXT!STSSK_ERROR : 
BRW ERROR_EXIT 
$GET | RAB = INI_RAB,- 
ERR = RMS-ERROR 
PUSHAL CONT_DESC™ 
PUSHAL CONT DESC 
CALLS #2,G™STRSUPCASE 
CMPB Es #*A/U/, BUFFER 
BEQL 30S 
CMPB = #*A/D/,, BUFFER 
BEQL 20% 
CMPB sss #*A/E/, BUFFER 
BEQL 208 
PUSHAL ILLEGAL _REC 
PUSHL #VETPS_TEXT!STSSK_ERROR 
PUSHL # 
BRW ERROR_EXIT 
BRW ALL_SET 
CMPB ss #*A/T/, BUF FER+4 


BNEQ FOUND_{T 
#1 


PUSHL 

PUSHL #2 

PUSHAL UNIT _NUMBER 

PUSHAL C 

CALLS te, G*OTSSCVT_TI_L 

BLBC 

SKPC = #*A/_ / , HMAX_UNIT_DESIG,- 
BUFFER+6 

DECL =R 

SKPC = #*A/0/,, RO, (R1) 

INCL, 

ADDW ,DEVNAM_LEN, DEVDSC 


W3 
MOVZWL DEVAN LEN.R 
MOV (RI ty DEV_NAME(R2) 
SGETDEV 8 "BEVNAA = BEVDSC,- 


PRIBUF = DIB 
MOVZBL DIBBUF+DIB$B_ DEVCLASS R7 : 
MOVZBL DIBBUF+DIBSB-DEVTYPE.RB ; 
$FAO_S CTRSTR = CS17- 

OUTBUF = FAO_BUF,- 

= R7,= 

P2 = RB 
MATCHC #6 BUFFER,R6, @OUTADDRESS: ; 
BEQL 40$ 
$FAO_S CTRSTR = CS3,- 

OUTBUF = FAO. BUF ,- 

Pl = R7 


MATCHC 
BNEQ 
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: We can't test what we can't test 


Sete Se te He Ge Se 


Get a record 


Make sure... 
~.ethat this Line.. 


this a 

BR if it is 

Is this a DDB? 
BR if yes 

Is this the end? 
BR if yes 


bo 
w 


...4S all uppercase “Letters 


Then this is an error in the record 


Push the error message 
Push the signal name 
Push the temp arg count 
Finish for good 


Found DDB or END 


Is the unit testable? 
BR if not 


Flag to ignore blanks when converting 


Set byte size of results 


Set address to resets word 


Push string addres 


Convert ASCII ante *y to ap der 
Don't allow bogus unit to pass 
; Find out where unit number really is 


Units must all be at least one digit 
Skip sonerne zeroes on the unit 
ft) 


Compensate 


r DECL above 


Calculate device'unit gels By Length 
Off 


set to unit number in 


Append unit number to device 
Get the device characteristics 


Save the device class 
“Save the device type 


e it into a strin 


: ting the deetee cfane and type 


it was found 


; Try for full class support 


6 BUFFER,R6,@OUTADDRESS ; 
50$ : 


i tog the device class only 


not foun 


c 


gf 
5 
iF 
CF 
CF 
ge 
F 
0 
0 
0 
6E 
04 
E8 
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9A 


=r 
wo 


= 
a 
bad 


ST 
(R a3)” Arte _NAME +8 


> + 2» __» _ 2» 2» _» _» 4» _» _» _» 4 _t 
WR ODOONOUSWwr—-0O”0 
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; Get the test name Length 
; Are we the right test? 
; BR if yes 


; Push device not et tape message 
; Parameters on the stack 
; Push the argument count 


Set the severity code. 


...and save it as the exit status 


Push the partial arg count... 
.»eand split this scene 


ap) 


—————— 
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97 1101 60$: | 
97 11 ¢ SEXPREG_S 45 = #PAGES,- ; Get a new node of demand zero memory 
97 11 TADR = NEW_NODE | 
O7B8'CF O7CO'DF 5D AB 1104 INSQTI anew NODE ,UNIT_LIST Put the new node in the unit List 
56 O7CO'CF DO O3AF 1105 MOVL NEW NODE ,R6 Save a copy of its address 
08 AB 01 90 0384 11 : MOVE  #1,0ETUNT$B_TYPE(R6) Set the structure type 
O1A4 BF BO 0388 11 MOVW § MUETUNTSC_INDSIZ+DEVDEP_ 7E,- 
09 A6 BC 1108 UETUNTSW_SIZE(R6) Set the structure size 
14 A6 O6BB'CF 00 BE 1109 DEVDSC ,UETUNTST FILSPC(RA) 3 mn the device name size... 
if A6 ODE C4 1110 MOVAL ETUNT$T_FILSPC#B(R6) ,- 3 .--and pointer to the name 
18 A6 O3C7 1111 UETUNTST_FILSPC+4(R6) 
O6BF'DF O6BB'CF 28 C9 W11¢ MOVC3 DEVDSC,aBEVDSC+4,- 
1C A6 DO 111 UETUNT$T FILSPC+8(R6) =; Save the device name 
0094 8F 28 D2 1114 MOVC3 #FABSC_BCN+RABSC_BLN,- 
0110 C6 OEDC'CF 0306 1115 DUMMY FAB,UETUNTSC_FAB(R6) ; Save a FAB and a RAB away 
57 0110 C6 ODE O30¢ 1116 MOVAL UETUNTS$K_FAB(R6) ,R? : Save the FAB address 
58 0160 C6 DE O3E1 1117 MOVAL U TUNT SKRAB(RG) JRE ; Save the RAB addres 
3c AB =6557)~=—DOs«O3E6 S118 MO'L R -RABS ~FAB(R8) ; Set the FAB eddresa in the RAB 
14 A6 90 O3EA 1119 MOVB UETUNTST-FILSPC(R6),- 
34 A7 O3ED 1120 PABSBF FNS(R7) : Set the FNS field in the FAB 
1C AG DE O3EF 1121 MOVAL UETURTST FILSPC#B(RG) .~ 
2C A? bare 115 FABSL_FNA : Set the FNA field in the FAB 
Bare 1195 ; Set the device dependent parameters in here 
FE8E 31 O3F4 1126 BRwW FOUND_IT ; Do the next UCB 
| 


oo 
FP Se oe ee ak ak ak ele ah te elt ea ak ek ak ke ke ae ee ee a ee ee ee hh hh dh eb ad ab ad ented 
FPFUAWIMWWIOO MMM AM SHSM OOOOOO POON S DW OW" 908 LL 


OO OOO. OD GO COD D> DEDEDE DDD Nh i 8 9 490 FF 8 8 FF FF FF Pe PF FP 
~ 


SSSSSSSEEREOEEREERRERERERREERERERER ERROR ORER EE Ben 
>rrwovo 
aoLoorn 


at eae 
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H 9 
VAX/VMS UETP DEVICE TEST FOR THE UNA 16-SEP-1984 gh 7:49 VAX/VMS Macro V04 
Test the DEUNA -SEP-1984 


-SBTTL Test the DEUNA 


; special case. 
ALL_SET: 
TSTL NIT_LIST 
BNEQ 
PUSHAL NOUNIT_SELECTED 
PUSHL #1 
PUSHL MUETPS_TEXT!STSSK_ERROR ; 
PUSH # 


L 
MOVL #5S$_BADPARAM, STATUS 
BRW ERROR_EXIT 


-00 
4:26:50 CUETP.SRC GETUNASOO MAR: 1 


Arrive here when we have the device configuration. 


In normal or loop forever 


mode, set a timer far enough in the future such that we can do a reasonable 
set of tests before the timer expires, but if our device gets hung, the 
program won't waste too much time before noticing. Let one-shot mode be a 


; Anything to test? 
; BR if yes 
; Else set up the error message... 


++-argument count... 
«+-Signal name... 


; «+.and parameter count 
; Set return status 
; «and give up, complaining 


11 

1138 

1130 

iH? 

1138 

1134 

1136 

11 : 

1138 

1139 

1140 

1141 

1106 

114 

1144 

1145 

1146 108: 

M106 BISW2 #SAFE_TO_UPDM,FLAG ; OK safe to update UETINIDEV.DAT ow 
1149 SGETSYI_S ITMLET = GETSYI_ITMLST ; Check for an adequate SYSGEN MAXBUF 
1150 CMPL #MIN_MAXBUF ,MAXBUF : Is it .GE. our minimum? 

1151 BLEQ 12$ ; BR if it is 

1126 $FAO_S CTRSTR = MAXBUF_MSG,- ; Complain if it isn't... 

115 OUTBUF = UF ,- 

1154 OUTLEN = BUFFER_PTR,~ 

1155 P1 = MAXBUF ,- 

1156 P2 = #MIN_MAXBUF 

1157 MOVZBL $*#SS$_BADPARAM, STATUS 

1158 PUSHAL BUFFER_PTR 

1159 PUSHL #1 

1160 PUSHL #UETPS_TEXT!STSSK_SEVERE 

1161 PUSHL # 

1196 128 BRW ERROR_EXIT ; ...and give up altogether 
1164 SASSIGN_S - ; Assign channel to the device 
1165 DEVNAM = DEVDSC,- 

1198 CHAN = XE_CHAN 

1138 BLBC RO,15$ ; BR if no failure 

1170 SASSIGN_S - ; Assign channel to the device 
1171 DEVNAM = DEVDSC,- 

117¢ CHAN = XE_CHANI 

1174 BLBS RO,208 ; BR if no failure 

1175 15$: 

1108 MOVL RO,STATUS ; Save the failure status 

117 INCL ERROR COUNT ; Bump the error count 

1178 PUSHL STATUS ; Push the error code... 

1179 PUSHL STATUS L 
1180 PUSHAL DEVDSC 3 «and the device designation... 
1181 PUSHAL TEST_NAME 3 «--and the test name... 

11 ¢ PUSHL # ; «..and the arg count... 

11 PUSHL #UETP$_DEUNUS!STS$K_ERROR ; ...and the Signal name... 
1184 PUSHL #6 3; «.-and the total argument count... 


—— (36) 


me. 
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10c2.—s311 rt 1} 5 208 BRW ERROR_EXIT ; «.-and bail out completely 
4BD 11 $ STRNLOG_S LOGNAM = REPORT,- ; Get the report mode 
4BD 1188 ty rity = BUFFER _PTR,=- 
4BD 1189 LBUF = FAO BUF 
005B'CF g0 8A 0406 1190 BICB2 we BITM, BUFFER ; Convert to upper case 
OOSB'CF 53 8F 91 O4DB 1191 CMPB #*A7S/, BUFFER : Is this short report 
7 \s 4E1 1336 BNEQ 30 ; BR if not 
0049'CF 0080 BF A tH Wer 308 BISW2 #LONGORSHRTM,FLAG ; Set short report bit 
O4EA 1195 $TRNLOG_S LGenan = MODE ; Get the run mode 
4EA 1196 RSLLEN = BUF FER PTR,=- 
ofA 119 RSL Bur . 0_BUF 
003%. CF DF 0503 1198 PUSHAL BUFFER_E 
005 §f DF b20e 1199 PUSHAL BUFFER -P 
00000000 ' GF 2 FB 050 1500 CALLS # se pcast 
OOEB'DF OOE7'CF 39 0512 1201 MATCHC DUMP, a@DUMP+4 , - ; Check for running in DUMP mode 
OOSB'CF  0053'°CF 051 120¢ FFER_PTR, BUFFER 
05 12 OSIF 120 BNEQ ; BR if we are not 
0049'CF O01 AB beS¢ } Be 35$ BISW2 #DUMP_MODEM,FLAG ; Remember it if we are 
005B'CF 4F BF 91 0526 1206 CMPB #*A/0/ BUFFER ; Is this a one shot? 
03 13 O52C 1207 BEQL 40$ ; BR if not 
0158 31 beget 1208 BRW TIME_IT 
0531 1209 40$: ; Fall into One shot testing 


UE TUNASOO 
V54-000 


So 
ono 


0000000 
52 


S 
So 
mm —WwRTF Ww" 


osc Coun ooOnn 
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oa 


18 52 
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BBS #LONGORSHRTV,FLAG,60$ 


CLRL 8 
MOVAL DIAG ts _ADR,R3 
MOVAL ARG_CIS 


MOVZBL c93)0,c8408 
AOBLSS #6,R2,508 


PRR ERLE EWAN innononononononennn es es es 


PIPIPOPIPOPIPIPINPINIPININININPIPIPINYIPINIPYNPIPINININPIPIPIPIPYNMYAPOPIPINIPIPINIPINIPY 


VVIGVOMOOO YY PPPPPP PP OOO OWN $= AAAI NIAAA AAAI 


-coo™7M|— —~m—oO 
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eel 
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NOU EWR OC OD NA UNE WIN 9 OO NAME WN 0 OD NAUE WW CO OONO EWI  OOONOU SE wr 


CDODCOOOCOCOCOCOCOCOCOCOCOCOCOOCOCOSCOOCOOCOOCOOCOOOOCOOOCOOOCOCOOCOOOOOCOOOOO 
FF NONWO DOUIWNODD LFMOLl LOTT 9T9 OOO OF FB FLUMNNNN S  S WO St SS SS SS 
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Com AMMMmMMM 
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Note: the ig be is +b. that is geeged to ONE SHOT test the UNA because 


driver performs an XE$C_DG_STEST gjeqnostie function on ~ 
A in a startup sequence and Ehe PCSR1 contents are qneches 97 
che device test to make sure that the self test function completed 


suceeeety ly. The XESC_DG_STEST function performs a read write 


verification of the UNA. 
SSETIMR_S - ; Set up ten second timer 
DAYTIM = TWENSEC,- 3; to prevent hang 
ASIADR = TIME ERR_OUT,- 
REQIDT = #TIMEOUTT 
SSETSFM_S ENBFLG = #0 ; Disable system service failure mode 
$Q10W_S FUNC = #10$ enacted ic phd 
CHAN = XE_CRAN 
10SB = XE-I0SB,- 
P2 = #P2 DESC,- 
P6 = #DIAG_BUF 


SSETSFM_S ENBFLG = #1 Enable system service failure mode 
SCANTIM_S REQIDT = #TIMEOUTI ; OK, no timeout 


Skip output if short report 
Make an index 

Set address address 

Set arglist address 


Parse to bytes 


SFAOL_S CTRSTR = ID git jes ~ 
OUTBUF = FAD B 
OUTLEN = BUFFER. ptr, ~ 
PRMLST = ARG_LIST 
PUSHAL ay R_PTR 
PUSHL #*x10001 
PUSHL ETPS EAE aa INFO 
CALLS -G*LTB$S1G 
MOVL DIAG_BUF +PCSR1,R2 ; Get the PCSR1 register contents 
CMPW R2,83 3; Is it error free and ready (3) 
BNEQ 70$ : BR ifn 
BRW 100$ ; BR if yee else... 
BBC #PCSR1SV_ICAB,R2,80$ 3 «.echeck the internal cable connection. 
MOVZWL } Tus : Set return status 
PUSHAL CAB _UNPLUGED : Push error message address 
PUSHL #UETPS_TEXT!STSSK_WARNING ; Push message ID 
PUSHL “ 


BRW ERROR_EXIT 


Untestable if internal cable unplugged 
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2F ; OF E71 0604 1 3 BBC #PCSR1ISV_XPWR,R2,90$ 3; Check the external cable connection. 
$5) CF D6 ° 8 1 INCL ERROR COONT ; Bump the error count 
3 D'CF OF 1270 PUSHAL (CAB1_ONPLUGED ; Push error message address 
p00F 9 F DD 0610 1271 PUSHL #*xF0001 
07411 F DD Q616 1 6 PUSHL #UETP PENT IST SR -WARNING ; Push message ID 
765'CF OD éi¢ 127 USHL ERROR_COUN ; bush the error count 
of ‘CF «6DF 606 1274 PUSHAL EROe Ss NAME 
9001 9 F DD 0624 1275 PUSHL  #*x10002 
007480 F DD 62A 1 6 PUSHL overt ERBOXPROC ! STSSK_WARNING 
QO000000'GF O07 FB ° 9 f ens CALLS #7,G*LTBSSIGNAL ; Print the error message 
8 EF 637 1 8 EXTZV #PCSRISV_SLFTST,=- 
6 639 1280 #PCSR1$S_SLFTST,=- 
53 2 2 ! +4 R2,R3 ; Extract the self test error code 
se 1 es $FAO_S CTRSTR = SLFTST_FAILED,- 
063C 1284 OCUTBUF = FAO_BUF,- 
Bost 1285 OUTLEN = BUFFER_PTR,=- 
063C 1286 Pl = R3 
0651 1287 
O769'CF OBE6'CF 3C 0651 1288 MOVZWL Jose, STAtus ; Set return status 
OOS3'CF DF 0658 1289 PUSHAL BUFFE ; Push error message address 
01 DD 065C 1290 PUSHL #1 
00741132 8F DD O65E 1291 PUSHL # ETPS_TEXT!STSSK_ERROR ; Push message ID 
03 DD 0664 1936 PUSHL # 
OF16 31 0666 129 BRW ERROR_EXIT ; Mark as untestable 
0669 1$38 100$: ; 
O9EB 30 0669 1295 BSBW CHECK_IOSB ; Check the IOSB results and exit if bad 
5B O7B8'CF O000007B8'BF C1 066C 1296 ADDL3 #UNIT-LIST,UNIT_LIST,R11 ; Get the unit block 
02 88 0676 1297 BISB2 #UETUNTSM TESTABLE,- 
0B AB 0678 1298 UETUNT$B_FLAGS (R115 ; This one is good 
067A 1299 $SDASSGN_S CHAN = XE_CHAN1 ; Deassign the extra channel 
O8AE 31 0686 1300 BRW “CLEAN_EXIT ; ONE SHOT is over 
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689 1302 TIME_IT: 
Se 
4 i 5 ; Set up Pl device char buffer, P2 buffer is set up in Read/write section 
33 O856' Cr 689 1 : MOVAL PIBUF+2 ; Address of device char for pl 
8 qs F 6 4 1308 MOVW #MAX_UNABUF_SIZE,(R3)+ 3 Maximum message sengtn 
6 02 693 1309 MOVB #XM$A_CHR_LOOPB, (R3) 3 Set loop back mode in char 
52 __AA 8F 696 1310 MOVZBL #*XAA,R ; Random number 1 
53 E 69A 1311 MOVZBL #*X2E,R 3; Random number 2 
000005DC 8F 69D 1 \¢ MOVL #MAX_UNABUF SIZE,R4 ; Maximum message Length 
ae 14 2 p 6A4 131 ADDL3 #UNIT 415) ONIT List. 1 ; Get the unit block address 
56 1A4 CB oat 1314 MOVAL UETUNTS$K_DEVDEPTR11) ; Get the transmit buffer address 
5A 0780 CB 06835 1315 MOVAL UETUNTSK_D VDEP+WRITE SIZE(R11),R10 ; Get the receive buffer address 
58 O1A4 CB 0688 1 MOVAL UETUNTSK DEVDEP(R11), 3 Xmit address 
OBF8'CF 28 Bee8 131 MOVL R8,XMIT ADR ; Store xmit address 
OBFC'CF O5DC C pecs : i 10$ MOVAL WRITE_ TZE R8) ,RECV_BU ADR ; Recv address 
> ae 06c9 1 $0 ADDL2 R3,R2_ ; Random number as data 
86 = 82 06CC 1321 MOVB R2, (R6)+ ; Fill in the transmit buffer 
F7 54 pect 13 ¢ SOBGTR R4,10$ ; Branch if more bytes to be filled | 
06D 3 4 SSETIMR_S DAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 
06D 1325 ASTADR = TIME _SUC_OUT,=- 
06D2 1 $ = #EFNZ 
06E5 132 
06E5 1328 STRNLOG_S LOGNAM = LOGNAM,- ; Get the TESTNIADR, if any 
06E5 1363 RSLLEN = RSLLEN,=- 
eed ! HH RSLBUF = RSLBUF 
00000000 ° 8F 50 D1 Behe 1333 CMPL RO,#SS$_NOTRAN ; Was there any? 
03 12 070 133 BNEQ 20$ : BR if not 
O0A6 31 0707 1334 BRW 0$ ; Otherwise forget it 
O70A 1335 20$: 
OC O7CB'CF D1 O70A 1336 CMPL RSLLEN, #12 ; Was it the right Length? 
32. 13 O70F 1337 BEGL 30$ ; BR if yes 
0765'CF D6 0711 1 8 INCL ERROR_COUNT 
OOF3"°CF DF 0715 1339 PUSHAL NIADRQRONG ; Report a bad address 
poor yer 8F DD 0719 1340 PUSHL #*XF0001 
00741130 &F DD 71F 1341 PUSHL #UETPS_TEXT!STSSK_WARNING 
Aree te DD 725 «1 4g PUSHL ERROR_COUNT 
B6C ‘CF «DF 0729 «134 PUSHAL PROCESS NAME 
0001 002 F DD 07 p 1344 PUSHL #*x1000 | 
Be teee F DD 7 1345 PUSHL #UETPS_ERBOXPROC ! STSS$K_WARNING 
00000000 ' GF 7 §€B 0739 1 4g CALLS #7,G*LTBSSIGNAL 
006D 31 0740 134 BRW 70$ 
0743 1 $8 30$: 
52 D4 0743 134 CLRL Ré ; Make an index 
53 OB8FO'CF DE 0745 1350 MOVAL ADR2+6,R3 ; Set address address 
54 O7D4'°CF ODE eee ! 2) 108 MOVAL RSLBUF+8,R4 ; Set arglist address 
O814'CF DF O74F 1 3g PUSHAL CVTRSL 
4 OF i} 1354 PUSHAB (R4) 
¢ DD 07 1355 PUSHL Ht 
00009900" 6F F if 1 2$ CALLS. @# ceLLOSeyT HTB 
8 0B14°CE 90 07 : 135 OVB CVTRSL,(R3)+ 
4 02 cO 0765 1358 ADDL2 #2,R4 
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] 
| 
5,52 06 £2 0766 1359 AOBLSS #6 ,R2,408 | 
3D 0049'CF E 76A 1360 BBS #L ONG NGORSHRTV,FLAG,60$_ ; Skip message if short report 
2 d4 QO7 136 CLRL ; Make an index | 
53 oer eee DE O772 136 MOVAL ADR2+6,R3 ; Set address address 
54 «= OBIC'CF =O ee ¢3 a MOVAL ARG_LIST,RG : Set arglist address 
8 83 9A O77C 1 3 ‘ MOVZBL (R2)+,(R4)+ ; Parse to bytes 
F9 52 6 F2 eee : 96 AOBLSS #6,R2,50$ 
O78 1 oe SFAOL_S CTRSTR = NIADRTESTING,=- ; Format address 
7 1 8 OUTBUF = FAO_BUF,- 
O78 1 p OUTLEN = BUFFER_PTR,- 
fa : 4 PRMLST = ARG_ LIST 
sal of {45 : 73 wie § BUFFER. PTR ; Output message 
00741133 8F DD BFAD 1375 PUSHL fyeres TEXT+STSSK_INFO 
00000000'GF 03 FB Bras 4 on CALLS #3,G*LTBSSIGNAL 
O1A1 31 O7AD 28 i BRW XMIT_START 
0862' ce 00 dO 0780 1380 : MOVL #NMASC_STATE_ON,PAD_SWITCH ; Set up dynamic characteristics 
O86E'C 00 dO 0785 1381 MOVL #NMASC~STATE-ON, ECHO. SWITCH 
0868'CF 60000090 8F D0 gree 138 MOVL #LOOP_PROTOCOL ,PROTOCOL 
ares 1384 SSETIMR_S - ; Set up half minute timer 
O7C3 1385 DAYTIM = MIN ; to prevent hang 
ihe 1386 ASTADR = tHE ERR “OUT, ~ 
07C¢ 1387 REQIDT = #TIMEOUTZ 
O7DA 1388 START_CONT | 
pele. ce + ByDA 138) Ne tery “ae ; Start the UNA on the first channel 
OFF8'CF O02 FB Ores 139 CALLS #27UNA_STARTUP 
1 44 fed 1398 wt Pebestt ; Start the UNA on the second channel 
OFF8'°CF O02 FB 144 1396 CALLS #2,7UNA_STARTUP 
0049'CF 10 A&B O7F4 1 38 BISW2 #FLAG_SHUTDNM,FLAG 3; Set ring to say shut down the 
144 1338 ; device if errors occur 
bere 1700 SCANTIM_S REQIDT = #TIMEOQUT2 ; Cancel hang timer | 
OBFC'CF pega cE 4 Babe 14 § MOVL DIAG_BUF+HARD_ADR,SELF_ADR ; Set up NI return address 
C2E'CF B F 14 MOVW DIAG. BUF +HARD “ADR+4, - 
0900'CF 13 He : SELF _ADR+4 
16 1408 SSETIMR_S DAYTIN = Set timer AST to 2 minutes 
16 140 ASTADR = neQUE St “NOTEND, = | 
18 1308 REQIDT = #TIME_IB_2 
33 1410 $Q10_S - ; Do a read of data 
9 1411 CHAN = XE ‘aod ~ 
9 141 FUNC = #10$ READVBLK,- 
9 141 EFN = #RDID_EFN,- 
9 1414 10SB = XE_I058,- 
9 1415 ASTADR = REGUEST_FND - 
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; Loopback test transmit and receive random data with different message Length 


SSETIMR Rm Ke. ; Set half minute timer to prevent hang 
“DAYTIM = HALFMIN,- 
ASTADR = TIME ERR_OUT, 
REQIDT = #TIMEOUTS 
CLRL R6 ; Set an index 
MOVAL SIZE_TBL,R7 ; Get size table address 
$Q10_S - ; Transmit data message 
EFN = 4. ge - ; Event flag 
CHAN = XE ; Channel 
FUNC = +108 URITEVBLK, - : Transmit 
10SB = XE 10sB ; 10SB 
ASTADR = CHK aio -AST,- ; Completion ast routine 
ASTPRM = #P ; Ast parameter 
Pl = aXxMiT BUF. ADR,-  ; Addr of transmit buffer 
Pe = (R7)CR6 : message Length in bytes 
PS = #DIAGBUF+HARD_ADR : NI address 
$Q10W_S - ; Read data message 
EFN = #RECV_EFN,- ; Event flag 
CHAN = XE_CAAN,- ; Channel 
FUNC = #I10$_READVBLK,- ; Receive message 
IOSB = RCV_TOSB,- ; 10SB 
ASTADR = RECV AST, = ; Completion ast to check data received 
ASTPRM = (R7)TR6),- ; Ast parameter = message length 
Pi = are CY BUF ADR, ~ : Receive buffer 
P2 = (R7)CR6),= 3 pessage Length in bytes 
P5 = #ADR1 ; NI address 
MOVCS #0,@#RECV_BUF_A 
#MAX UNABOF USTIE. ReRety _BUF_ADR ; Clear the read buffer 
INCL ITERATIO ; nerenent iteration count 
AOBLSS #SIZE "BL -SIZE,R6,XMIT ; Loop for size_tbl_size times 
SCANTIM_S - 3; Cancel hang timer 
REQIDT = #TIMEOUTS 
BBC #TEST_OVERV,FLAG, 108 ; Is the test over? 


BRW SENSE-TEST 
BBC #BRDCST_NEDEDV, FLAG, - 
BRW DO_BRDCST 

Bes tutte. 
$SETIMR_S - 


BR if UNA adr found 
BR if no UNA adr found in 2 minute 
Reac request 


BR if UNA adr found 
BR if no UNA adr found yet 


Set ten sec timer to prevent hang 
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313 147 DAYTIM = TENSEC,- | 
919 14 ASTADR = TIME ERR OUT,- | 
4 1? REQIDT = #TIMFOUTS 
O818'CF DF Q9 14 ‘ PUSHAL XE_CHAN ; Shutdown the UNA on the first channel 
102C'CF 1 FB 2 | 1? ¢ CALLS #1,UNA_SHUTDOWN 
OBIA'CF DF 0939 14 § PUSHAL XE_CHAN1 ; Shutdown the UNA on the second channel 
102C°CF 01 FB 3 1 CALLS #1,UNA_SHUTDOWN 
3¢ 1489 SCANTIM_S REQIDT = #TIMEOUTS 
0381 1491 XMIT_START: 
0862'CF 1 pdO 0951 1336 MOVL #NMASC_STATE_OFF,PAD_SWITCH ; Turn off padding 
O86E ‘CF 1 DO 0956 149 MOVL #NMASC_STATE_OFF ,ECHO_SWITCH ; Turn off echo mode 
0868'CF 00000090 BF 00 3k 123¢ MOVL #LOOP_PROTOCOL PROTOCOL ; Set to loop back protocol type 
boed 1eay SSETIMR_S - ; Set twenty sec timer to prevent hang 
0964 149 DAYTIM = TWENSEC,- 
0964 1498 ASTADR = TIME _ERR_OUT,- 
988 1333 REQIDT = #TIMEOUTS 
O818'CF DF O97B 1501 PUSHAL XE_CHAN ; Startup a UNA channel in loopback 
O884'CF DF O97F 1286 PUSHAL P2_DESC 
OFF8'CF 02 FB 4 1387 CALLS #2,UNA_STARTUP 
O8FC'CF Oca Ce DO 0988 1505 MOVL DIAG_BUF+HARD_ADR,SELF_ADR ; Set up NI return address 
OC2E‘CF BO O9BF 1506 MOVW DIAG_BUF +HARD_ADR+4,- 
0900' CF 0993 1507 SELF _ADR+4 
0996 1508 
0996 1509 
44 1319 SCANTIM_S REQID? = #TIMEOUTS 
0207 31 Q9A5 1216 BRW XMIT_SETUP ; Start external looping. 
O9A8 151 
O9A8 1514 DO_BRDCST: 
Q9A8 1515 SSETSFM_S ENBFLG = #0 ; Disable errors 
09B1 1516 SCANCEL_S CHAN = XE_CHAN1 ; Give up the pending read request... | 
Q9BD 1517 SWAITFR_S EFN = #RDID_EFN ;_...and wait for it e 
0049'CF 0060 8F AA Race 1518 BICW2 “#<ID_FNDM!BRDCST_NEDEDM>,FLAG ; Init the ID found and brdcst flag 
Race ie)? SSETSFM_S ENBFLG = #1 ; Safe to turn on errors again 
0906 1521 SSETIMR_S - ; Set ten sec timer to prevent hang 
308 15 ¢ DAYTIM = TENSEC,- 
906 15 ASTADR = TIME ERR OUT,- 
4 I : REQIDT = #TIMEOUTS 
O818'CF DF Q9ED 1526 PUSHAL XE_CHAN ; Shutdown the UNA on the first channel 
102C'CF 01 FB ie 1 f CALLS #1,UNA_SHUTDOWN 
OB1A'CF OF ore 1529 PUSHAL XE_CHAN1 ; Shutdown the UNA on the second channel 
102C'CF 01 FB A 1 9 CALLS #1,UNA_SHUTDOWN 
be } § SCANTIM_S REQIDT = #TIMEOUTS 
OBEA'CF FFFFFFFF Hi 44 AOE 1534 
OBEE "CF FFFF BF 8B Al 1535 MOVW a 


MOVL gu] ADRS ; UNA address to broadcast 
-1,ADR2+4 
| 
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pobe cE ae Al— 1 § MOVL #NMASC_STATE_OFF,PAD_SWITCH ; Turn off padding 
Be bote : 2% A 1 MOVL #NMASC-STATE_OFF,ECHO_SWITCH ; Turn off echo mode 
C868' CF 0000090 8F »D “ ; 8 MOVL #LOOP_PROTOCOL, PROTOCOL ; Set to loop back protocol type 
A31 1540 SSETIMR_S - ; Set twenty sec timer to prevent hang 
A31 1541 DAYTIM = TWENSEC,- 
A311 4¢ ASTADR = TIME _ERR_OUT,- 
re et? REQIDT = #TIMEOUTS 
| 
oe le ce 44 ne 1807 so iy Farbese ; Startup a UNA channel in loopback 
OFF8'CF 02 FB As 1347 CALLS #2,UNA_STARTUP 
Aa? 1349 SCANTIM_S REQIDT = #TIMEOUTS 
Rare 132) SSETSFM_S ENBFLG = #0 ; If not don't error hard 
A6D 1888 SSETIMR_S - ; Set ten sec timer tou prevent hang 
QA6D 1554 DAYTIM = TENSEC 
OA6D 1555 ASTADR = TIME E ERR OUT,- 
BA ? 1338 REQIDT = #TIMEQUTS 
OA84 1558 $Q10_S CHAN = XE_CHAN,- 3; Xmit to the broadcast address 
0A84 1559 FUNC = #TO$_WRITEVBLK,- 
0A84 1560 10SB = X€_10S8,- 
OA84 1561 STADR = CHK aio -AST,- ; Completion ast routine 
OA84 1306 ASTPRM = #PR ; Ast parameter 
OA84 156 Pl = BROCST BUF - ; Addr of transmit buffer 
OA84 $1564 P2 = #BROCST _BuF _LEN,- ; message pongth in bytes 
pace 138? P5 = #ADR2 ; NI broadcast address 
gaa? 1202 SCANTIM_S REQIDT = #TIMEOUT6 
AC& 1569 SSETIMR_S DAYTIM = TENSEC,- ; Should get a response in ten seconds 
AC4& 1570 ASTADR = ABRT BRDCST,- 
BACs ra! REQIDT = #TIME_ID_2 
QAD? 1358 $Q10W_S CHAN = N,- ; Receive from the broadcast address 
OAD? 1574 FUNC = ros” READVBLK, - 
OAD? 1575 10SB = XE_10 
OAD? 1576 ASTADR = REQUEST _FND,- ; Completion ast routine 
OAD? 1577 ASTPRM = #PRM,- ; Ast parameter 
OAD? 1378 Pi = aRECV BUF _ADR : Addr of receive buffer 
AD? 132 Pe s X_ONABOF “SIZE,- ; message length in bytes 
44 1389 P5 = PADR R2 3; NI address 
OBF6'CF OBE6'CF B80 te! 1? ¢ MOVW XE_10SB,SAVE_STAT ; Save the read status 
13 1584 SSETIMR_S - ; Set ten sec timer to prevent hang 
pet 1585 “DAYTIM = TENSEC,- 
B13 15 : ASTADR = TIME ERR_OUT, 
3 12 REQIDT = #TIMEOUT? 
O818'CF DF OQB2A 1 : PUSHAL KE_CHAN ; Shutdown the UNA 
102C'CF 01 FB : : oy CALLS #1, UNA_SHUTDOWN 
1592 SCANTIM_S REQIDT = #TIMEOUT? 
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UNA | 
B42 1593 | 
OA OBF6'CF CE B42 1594 BLBS SAVE_STAT,10$ BR if read made it 
0862 CE 00 DO 0B4? 1595 MOVL § #NMASC_STATE_ON,PAD switty : Turn padding back on 
O86E ' CF 0 oO th 38 108 MOVL WNMASC_STATE_ON,ECHO_SWITCH ; Turn echo back on | 
B51 159 : 
4 1 38 SSETIMR_S - ; Set twenty sec timer to prevent hang 
B51 1600 “DAYTIM = TWENSEC,=- | 
B51 1601 ASTADR = TIME ERR_OUT,- 
$87) 1606 REQIDT = #TIMEOUTS 
oie ce dB 1088 PUSHAL XE_CHAN ; Restart the UNA | 
84'CF DF +3 1605 PUSHAL P2_DESC 
OFF&'CF 02 pee 1906 CALLS #2,5UNA STARTUP 
Oe 1988 SCANTIM_S REQIDT = #TIMEOUTS 
26 OBF6'CF £8 a8 1919 BLBS SAVE_STAT,XMIT_SETUP 3: If we got one then start external loopback 
O200'CF OF $b89 1316 PUSHAL REMOTE_NOTFND ; Else report an error 
01 DD OB8D 161 PUSHL 4 
00741130 8F DD OBBF 1614 PUSHL aye res la WARNING 
00000000'GF 03 FB 4943 1017 CALLS ,G*LIBSSIGN 
OB9C 1617 SSETSFM_S ENBFLG = #1 ; It's OK now 
0049'CF 0040 BF AA OBAS 1618 picts “#BRDCST_NEDEDM, FLAG ; We're giving up 
FCAB 31 OBAC 1619 BRW XMIT_LOOP ; Carry on in” Echo mode 


eee 
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BAF 1621 ; 
BAF 16 6 ; When requesting looped back messages from a remote node, we have to account 
BAF 1625 ; for the Ethernet's yncercernty: messages are not guaranteed to reach their 
BAF 1624 : destination and it is the responsibility of the sender to retransmit them 
OBAF 1625 ; if they do not. At the same time, UETP must terminate. We therefore Limit 
BAF 16 § ; the number of attempts we will make at retransmission and the time we will 
BAF 1627 ; wait for any one attempt to transmit. Any 1/0 is $CANCELLed after it 
BAF 1628 ; completes or after we time out; if it were to complete later in the test it 
OBAF 1629 ; could give us inconsistent results. 
OBAF 1630 ; 
OBAF 1631 
BAF 16 § XMIT_SETUP: 
O—F 28 OBAF 16 MOVC3) #FORWARD_MSG SIZ,- ; Put the forward message header in... 
OBF8'DF O8F8'CF 0BB1 1993 BRDCST BOF @XMIT_BUF_ADR ; ...the transmit buffer 
0100 8F 00 00 8F 00 2C OBB? 1635 MOVCS #0,#0,80,MTSCLL,= ; Clear out time stamps from previous... 
OCSC'CF OBE 1636 STAMP. BUFFER ; ...run (needed for LOOP mode) 
OBC 1838 REMOTE _LOOPBACK_TEST: 
06 O06 00 8F 00 2C OBC2 1639 MOVCS #9,#0,#0,MSIZE_TBL_SIZE,- ; Clear flags which say that some... 
OC54'CF OBC8 1640 LOOPBACK_ACK ; «e.transmission size succeeded 
56 7C OQOBCB 1641 CLRO R6 : Initialize counter for msg sizes... 
OBCD 1646 ; ...and retransmission flag 
58 O99E'CF —E OBCD 164 MOVAL SiZE_TBL1,R8 ; Point to table of message sizes 
59 0818'CF C pads 1644 MOVZWL  XE_CRAN,R9 3; Stick channel in convenient holder 
OBD7? 1645 SSETIMR_S BAYTIM = HALFMIN,- ; Allow time for messages to comp‘ete 
OBD7 1646 ASTADR = LOOPBACK_TMO,=- 
OBD7 1647 REQIDT = #LOOPBACR_TMO 
O791'CF D6 OBEE 1648 10$: INCL ITERATION ; Count the messages we're to receive 
SA D4 OBF2 1649 CLRL R10 ; Limits retransmission attempts 
o50C 8F 00 00 8F 00 2C OBF4 1650 MOVCS #0,#0,#0,#MAX_UNABUF_SIZE,- ; Clear buffer into which... 
OBFC ‘DF OBFC 1651 aRECV. BUF ADR 3 «.+.messages are read 
OBF F 1936 $Q10_S EFN = PRECV_EFN,- ; Be ready to read if the msg arrives 
OBFF 165 HAN = R9,- 
OBFF 1654 FUNC = #I10$_READLBLK,- 
OBFF 1655 OSB = RCV Pyed 
OBFF 1656 ASTADR = LOOPBACK_AST,- 
OBFF 1657 ASTPRM = - 
OBFF 1658 P} = @RECV_BUF_ADR,- 
OBFF 1659 P = (R8B),- 
OBFF 1660 P = #ADRI ; NI address 
0049'CF £9 OC2A 1666 BLBC FLAG,20$ ; Skip sequence number if normal running 
5B OBF8'CF DO OC2F 166 MOVL XMIT_BUF_ADR,R11 : In quae mode, use sequence number... 
OA AB O791'CF 00 be 4 1664 MOVL ITERATION, 10(R11) ; ...(ITERATION) to verify message 
OA AB DD OC3A 1665 208: PUSHL 0(R11) 
68 DD OC3D 1998 PUSHL (R8) 
121B'CF O02 FB OC3F 166 CALLS #2,XMIT_STAMP ; In dump mode, keep track of messages 
bees 1668 $Q10W_S EFN = #XMIT_EFN,- ; Tell some node to loop back a message 
C44 1967 CHAN = - 
C44 1670 FUNC = #10$ WRITELBLK,- 
C44 (1671 10SB = a 
C44 1676 PI = @XAIT_BUF_ADR,- 
C44 «(167 Pe = (R8),- 
C44 «1674 P = #ADR2+6 ; Remote NI address 
coe 1675 SWAITFR_S EFN = #RECV_EFN ; Wait for message to be returned 
38 9654°F6 E8 OC74 1676 BLBS LOOPBACK ACK (RG) . 308 ; BR if this size message got through 
01 pdO OC79 167 MOVL #1,R : Indicate retransmission 
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C7C 167 SCLREF_S EFN = #RECV_EFN ; Flag was set by timeout routine 
5A D6 OC 1858 INCL ; : Figure which retransmission is next 
20 0049'CF E9 OC 1680 BLBC FLAG,25$ ; Skip message if normal running 
C8C 1681 $FAO_S CTRSTR = RE TRANS MSG,- 
C8C «(16 § OUTLEN = BUFFER s* 
OCc8C 16 OyTBUF = FAO_B 
C8C 41684 P = R10>- 
C8C 1685 P z MPaarion 
c8C «(16 § P = (RB) 
Bt § 198 P4 : ake 
0611 30 OCA9 1688 BSBW DUMP 
5A 04 OI Beat 1982 25$: CMPL si COUNT, R10 ; Loop to re-xmit... 
89 14 OCAF 1690 BGTR ; e+-if any attempts left 
88 D5 OCB1 1691 30S: TSTL Point to the next message size 
FF35 56 OF O3 F1 QCB3 1936 ACBL a5ite TBL_SIZE-1,41,R6, 16s"; Loop while there are more msg sizes 
4657 €9 OCB9 169 BLBC $ : skip ms msg if no retransmissions 
5A 5E DO OCBC 1694 MOVL SP,R10 ; Save original SP for later cleanup 
56 7C OQOCBF 1695 CLRQ 6 ; Counter for msg sizes which failed... 
OCC1 1696 i ««+(R7) and loop index (R 
07 0C54'C6 EB OCC1 1697 405: BLBS LOOPBACK_ACK(R6) ,50$ : BR if this size message got across 
57 D6 OCC6 1698 INCL 7 ; Count size(s) which failed 
O99E'CF46 DD OCCB8 1699 PUSHL SIZE_TBLICR6) ; Save the message size 
FO 56 =046) «€6F2 «2(OCCD «C1700 50$: AOBLSS #SIZE_TBL_SIZE.R6,40$  ; Loop through roma tneet of flags 
58 OSE9"CF DE OCD 1701 MOVAL RETRY_MSG>R8 ; Assume we want msg for all sizes OK 
04 DD OCD6 ay: PUSHL #SIZE_TBL_SIZE ; Save total count of message sizes 
57 05 OCD8 170 TSTL R7 : Did all nts9 sizes eventually make it? 
OA 13 OCDA 1704 BEQL 60$ ; BRift did 
58 0667'"CF DE OCDC 1705 MOVAL LOOPBACK_FAIL_MSG,R8 ; Use peher message if they did not 
6— 57 DO OCE1 1706 MOVL R7,(SP) : Ping yet save count of failed msgs... 
57 DD OQOCES 1707 PUSHL R7 ; 'ZS and !# both 
59 5E DO OQCE6 1708 60$: OVL SP,R9 : Save “pointer to $FAO a args 
OCE9 1709 SFAOL_S CTRSTR = (R8),- ; Form msg indicating fails or attempts 
OCE9 1710 QUTBUF = FAO_BUF,- 
OCE9 1711 OUTLEN = BUFFER_PTR,- 
OCE9 1ti¢ PRMLST = (R9) 
OSBE 30 OCFC 171 BSBW DUMP_SIGN ; Tell the user of our difficulties 
5E SA DO OCFF 1714 MOVL R10,5P ; Clean $FAOL args from the stack 
OD02 1715 70$: SCANCEL_S CHAN = XE_CHAN ; We can't afford to get old msgs later 
443 1018 SCANTIM_S REQIDT = MLOOPBACK_TMO ; Now we know test won't hang 
19 0049'CF 01 69 OD1D 1718 BBS #TEST_OVERV,FLAG,SENSE_TEST ; Is the test over? 
FE9C §=631.«OD23-—s«1719 BRW REMOTE_LOOPBACK_TEST ~ ; Continue in external looping 
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D 1721 ; 
D é 17 § ; If in ten seconds the transmit to the broadcast address does not succeed 
D 1725 ; either the device is broken or there is no one else on the NI so abort 
: 2 if : ; the read request and continue looping in Echo mode. 
D26 17 § 
D26 1707 ABRT_BRDCST: 
0000 OD 8 17 8 . 
0049'CF 0040 &F A8 D 17 B1SwW #BROCST_NEDEDM,FLAG + Signal the CANCELed AST routine 
OD2F 1730 SCANCEL_S CHAN = XE_CHAN ; Give up completely 
04 D3B 1731 RET 
tf: 17 3 
D3c 17 SENSE_TEST: 
post 1734 
OD3C 1735 SSETIMR_S - ; Set ten sec timer to prevent hang 
peat 1738 DAYTIM = TENSEC,- 
p3c (17 ASTADR = TIME_ERR_GUT,- 
Boa 1738 REQIDT = #TIMEOUTTO 
0053 +1739 
0053 1740 $Q10W_S - ; Read device characteristics 
0D53 1741 CHAN = XE_CHAN,- 
0D53 1er6 FUNC = #10$ SENSEMODE ! IOSM_CTRL,- 
0053 174 10SB = X€_10SB,- 
0053 1744 P1 = SENSE _P1BUF,- 
0D53 1745 P2 = #SENSE_P2DESC 
OD7A 1746 
OD7A 1747 SCANTIM_S REQIDT = #TIMEOUTIO 
0D89 1748 
02C¢B 30 poe? 178? BSBW CHECK_IOSB 3; Check status 
54 OBES'CF 3C ODBC 1751 MOVZWL XE_10SB+2,R4 ; Number of bytes returned for p2 buff 
55 O87E'CF DE O0D91 1736 MOVAL ADR,R5 ; Digital multicast NI address 
57 06 00 0036 1733 we MOVL  #6,R7 : Adr Length 
56 O936'CF ODE $39 1755 MOVAL SENSE_P2BUF ,R6 ; Address of P2 buff returned 
66 54 65 06 39 4 1756 MATCHC #6,(R5),R4, (R6) ; Check the parameters returned 
03 12 OQDAS 1757 BNEQ ; Br if not match 
0007 31 et 1038 308 BRW ERROR_TEST ; Otherwise go to test error case 
OASA'CF BF DAS 1760 PUSHAL SENSE_ERRMSG ; Error messes 
0237 1 ODAC 1761 BRwW FAIL_OuT ; Failure exi 
DAF 1766 
GDAF 1763 ERROR_TEST: 
OA 1788 SSETSFM_S ENBFLG = #0 ; Turn off system service mode 
DBS 1796 s —. 
a4 17er ; Read data with IOSM_NOW specified but no data available 
DB8 129? $Q10W_S - ; Read data message 
DB 1770 CHAN = XE_CHAN,- 
DB8 1771 FUNC = #10$_READVBLK! 10$M_NOW, - 
DB 1ofe 10SB = XE_I0SB,- 
dB 177 P1 = @RECV_BUF_ADR,- 
DBE 127% P2 = #MAX_ONABOF _S{ZE 
O000'S8F OBE6'CF 81 OQDDF 1226 CMPW XE_IOSB,#SSS$_ENDOFFILE ; Correct error code? 
69 12 ODE6 177 BNEQ  ERRTST_ERR : Br if not 
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DE8 177 
DE 1598 . ; 
43 Mf 9: ; Buffer not enough to hold all information from 10$_SENSEMODE 
DE8 17 ; 
DE8 17 $Q10W_S - 3; Read device characteristics 
DE 1784 CHAN = XE_CHAN,=- 
DE 1785 FUNC = #10$_SENSEMODE! IO$M_CTRL,- 
DE 17 8 10SB = XE_10S8,- 
DE 17 Pi = SENSE 4 ~ 
i V7 8 P2 = WERRTST_P2DESC 
0000' 8F —_s B1 oe F 1596 CMPW XE_I10SB,#SS$_BUFFEROVF ; Error code = buffer overflow? 
9 12 %F16 1791 BNEQ  ERRTST_ERR : Error if not 
3 103¢ 
+2 179 ; 
pele 1e2e 3 ; Bad parameter due to message too big for the buffer 
OF18 1796 $Q10W_S - ; Transmit data message with leng = 514 
0E1 1797 EFN = gw. Aye - 
at 1798 CHAN = 
0£18 1799 FUNC = r10$ URITEVBLK, - 
0E18 1800 10SB = XE€_10SB,- 
0E18 1801 P1 = @XMIT_BUF_ADR 
0E1 180¢ P2 = #MAX_ONABOF S{ZE+2,- 
pe} 139? P5 = #DIAG YBUF SHARD _ADR 
00000000 ' 8F 50 D1 OE&45 1805 CMPL RO,#SS$_IVBUFLEN ; Should be invalid buffer size 
03 12 OE4C 1806 BNEQ ERRTST_E 
0076 «(31 peor 1382 BRW READ_ERRCOUNT ; Br to read and clear error count 
0E51 1809 ERRTST_ERR: 
OA5SB'CF DF 0E51 1319 PUSHAL ERRTEST_MSG ; Error message 
018—E 31 BE 22 : 1} Ww FAIL_OUT ; Failure exi 
Oe58 1813 REQUEST_FND: 
OFFC —5 aie eWORD “M<R2,R3,R4,R5, ork R7 R8.RI-R R10,R11> 
5C 0049'CF 06 EO OESA 1815 #BRDCST_NEDEDV.FLAG, 20S : Skip this if being CANCELed 
3p 0049°CF 07 £0 OE40 1816 BBS #LONGORSHRTV, FLAG. ait : Skip message if short report 
52.4 £66 1817 CLRL R : Make an index 
53 O8FO'CF DE OE68 1 18 MOVAL ADR2+6,R ; Set address address 
54 OB1C'CF ODE ESD 19 we MOVAL ARG reat R4 : Set arglist address 
86 83 9A oE2 1821 MOVZBL (R3)+,(R4)+ ; Parse to bytes 
F9 52 6 F2 4483 } § AOBLSS #6,R2.10$ 
E79 1824 SFAOL_S CTRSTR = REMOTE _ID_CTR,- ; Format address 
E79 1825 OUTBUF = UF ,- 
E79 1 6 OUTLEN = BUFFER. bre. - 
444 ! PRALST = 
O053°CF OF £30 1 ; PUSHAL BUFFER_PTR ; Output message 
1 DD O0EF94 1830 PUSHL #1 
00741133 BF DD E96 1831 PUSHL : ETPS_TEXT+STSSK_INFO 
00000000'GF 03 FB DEAS : § 158 CALLS »G*LIBS$SIGNAL 
EA 1834 SCANTIM_S REQIDT = #TIME_ID_2 3; Kill two minute timer 


sr 
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EAE 1835 
OBIA'CF DF OQOEAE 1 PUSHAL XE_CHAN1 ; Shutdown the read request channel 
102C'CF 61 FB EB¢ $ CALLS #1,UNA_SHUTDOWN tt : 
0049°CF 20 AB QEB7 1 BISW2 #ID_FNDM,FLAG ; Set request found 
EBC 1840 20$: 
04 bes ! 4] RET 
EBD 1 23 REQUEST_NOTFND: 
OFFC 44 ' te WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> 
0049'"CF 0040 BF As peee 1 rt} BISW2 #BRDCST_NEDEDM,FLAG ; Set the broadcast needed flag 
(el es 
OE C7 1849 READ_ERRCOUNT: 
pec? 1339 SSETSFM_S ENBFLG = #1 ; Turn on system service mode 
OEDO 1926 SSETIMR_S - ; Set ten sec timer to prevent hang 
OEDO 185 DAYTIM = TENSEC,- 
OEDO 1854 ASTADR = TIME_ERR_OUT,- 
pene 182? REQIDT = #TIMEOUTTI 
OEE? 1857 $Q10W_S - ; Read and clear the error counters 
OEE? 1858 CHAN = XE_CHAN,- 
OEE7 1859 FUNC = #10$_SENSEMODE! 1O$M_RD_COUNT! IOSM_CLR_COUNT! 1OSM_CTRL,- 
OEE? 1860 10SB = 10SB,- 
944 199) P2 = #ERRTOUNT_DESC 
peye 1868 SCANTIM_S REQIDT = #TIMEOUTI1 
0139 30 OFIB 1865 BSBW CHECK_IOSB ; Check I0 status block 
O9D6'CF OBEB'CF 3C¢ Orie 1866 MOVZWL XE_105B+2,ERRCOUNT_DESC ; Set the counter size 
O9D6'"CF DF OF25 1867 PUSHAL ERRCOUNT DESC ; Push address of counters 
12D1'CF 01 FB OF29 1868 CALLS #1,COUNTER_ CHECK 3; and check the counters for errors 
O9D6'"CF 00000080 8F D0 4 3 1398 MOVL #ERRCNT_LEN,ERRCOUNT_DESC ; Reset the buffer size 
ore! 137) CLEAN_EXIT: 
0049'CF 10 AA OF? 1878 BICW2 #FLAG_SHUTDNM,FLAG ; Clear the shutdown flag 
OF Re 1875 $Q10W_S - ; Shut down the device 
oree 1378 CHAN = XE_CHAN,- 
OF3C 187 FUNC = #10$ SETMODE ! 1O$M_CTRL! 10$M_SHUTDOWN, - 
or3p 1879 10SB = XE_I0SB 
OOF7 30 c28 + 9 BSBW CHECK_10SB ; Check 10 status block 
OF 60 iS ¢ SUC_EXIT: 
F601 STRNLOG_S LOGNAM = MODE,- 
F60 1884 RSLLEN = BUFFER_PTR,- 
Fg 1885 RSLBUF = FAO BUF 3; Get the run mode 
005B'CF 30 8A OF 1 § BICB2 #LC_BITM,BUFFER ; Convert to upper case 
005B'CF 4C A %} 44; | care #*A7L/ BUFFER 3 i this : loop for ever? 
: no 
0049'CF 22 AA OFB6 1 ; BICW2  #<TEST_OVERM!ID_FNDM>,FLAG ; Reset the termination flag 
0795'°CF D6 OF8B 1890 yi ; Bump the pass count 
FEF 1891 FAO_S CTRSTR = PASS_MSG,- 


<c 


wens 


0769'CF 10000000'8F 


01 
00741132 8F 
O769'CF 6 


i] 
0587 
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Pp 
PUSHAL BUFFER. 
PUSHL 
XT!STSSK_INFO 
$S1GNAL 


SDASSGN_S CHAN = XE_CHAN 
#SS$_NORMAL!STSSM 


TEXT! STS$K_ERROR 
TATUS 


TW eee ee ee eee 
NM HRHMMMMMOCVOCOOCWWWD & OWOMWoMoe 


OVINE COP AADC OW™ OMIM TH “1 “WF 


Sa) > as —s bs _ 2s — > —s 4 9 4 ss > as —_s 2s 4 4 9 2 


MEW CO ODNA UE WN 0 OD NAUE UT 


pejefeloleolojoio) 


0 
UVETP.SRC GETUNASOO MAR; 1 


; Make the end of pass message 
Push the string desc. 

Push arg count 

Push the signal name 

Print the end of pass message 
Reset the iteration count 

Do the next pass 


3; ALL done with the channel 


_INHIB_MSG,STATUS ; Set successful exit status 


; Exit with the status 


Failure exit 
Arg count 
Signal name 
Set up status 
Arg count 
Error exit 
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PP -SBTTL UNA Startup Routine 
: FUNCTIONAL DESCRIPTION: 

: This routine will be called to start up the UNA device. 
; It checks 10 status block and the AST parameter 

: CALLING SEQUENCE: 

: PUSHAL CHAN 

‘ USHAL P2 

: CALLS #2,UNA_STARTUP 

: INPUT PARAMETERS: 

; CHAN = Address to store the returned channel in 

3 = Address of the P2 parameter List for the UNA 

: IMPLICIT INPUTS: 

3 NONE 

: OUTPUT PARAMETERS: 

3 CHAN = channel associated to the UNA device on startup 


; IMPLICIT OUTPUTS: 
; Error message if error 


; COMPLETION CODES: 
; 10 status in XE_I0SB if error 


; SIDE EFFECTS: 
Program exit if error 


UNA_STARTUP: 
OFFC .WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Entry mask 
$Q10W_S - ; Start the controller 
CHAN = @8(AP) 
FUNC = #10$ SETCHAR! 1OSH_ CTRL! 10$M_STARTUP, - 
s 


SB = XE 
ASTADR = CHK aio. AST,- 
ASTPRM =f #PRA, - 


P3 = PRECVPOOL_S1Z.- 
= #DIAG_BUF 


nn 
Da a Die Di ee Re i ie Re Re ee Re Re ee Be es De Bs Ds Ds ee es Ds Re es Re Re ee ee eB Be es Be Be] 


Orrrrr yr > P }& & 00009 00 00 00 00 00 09 00 Cd 0 CD CD CD CD CO CD CD CDCS 


a se tt ns a ss a ss a a ss 2s ss 2 


WWOOOOOOOOOOOOOOOOOOOVOOVOOOVOWVOOWOOOVOOVOOVOOOOOOOOONO 
PDP PVs SV BB BE BS BE ANNI AIA ANNI POPOPIPIPININININ | | 


= oa bea Dena bea ena ca a ca a Ponca Bek Bei Pea na ncaa Ponca ena ena Ponca Ponca Pa ca ca mca ona aca ona, na onc ca ca ncaa fon Don Da a ca ca ona 
MOOD NA UE WN 9 OD NAME WN SO OD NAME WN OOO NAU EWN OOOnN 


hp hn hh pn pene aja el alelelelelelelelelo! 


oO 
= 


RET 
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1 saa -SBTTL UNA Shutdown Routine 

; FUNCTIONAL DESCRIPTION: 

: This routine will be called to shutdown the UNA device. 
: It checks 10 status block and the AST parameter 

; somone Bt oo gg cE 

CALLS #1,UNA_SHUTDOWN 


; INPUT PARAMETERS: 
; CHAN = Address to store the returned channel in 


; IMPLICIT INPUTS: 
NONE 


. 
° 
° 
. 
o 
. 
; 
. 
; 
o 
. 
. 
° 
. 
° 
° 
. 
. 
o 
e 
o 
e 
. 
° 
° 
°. 
° 
° 
. 
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; OUTPUT PARAMETERS: 
; NONE 


; IMPLICIT OUTPUTS: 
; Error message if error 


; COMPLETION CODES: 
10 status in XE_10SB if error 


; SIDE EFFECTS: 
; Program exit if error 


a kk kk kk kk a kt tt tt 

SOOCOCCOOCOCOCOCOCOC COCO OO OOOO OCOCOOOC OOO OOOO OOOOOO 
HMMM MMMM AIMOIOOMOOOOOOIOOOOIOAIOOOOAIOAOOOOOOOOONO 
Ronny 3 3 ss 
DOOCOOOOOOGOOOWDO DOOOOODOVOOOOVOOOWOOOOOOOOOOO 
PRO OONOAU EWN 9 OO NAN E WW OO OD NOU EAN (OOO NOULS WW 


; UNA_SHUTDOWN: 
OFFC -WORD “M<R2,R3,R4,R5,R6,R7,RB8,R9I,R1I0,R11> ; Entry mask 
$Q10W_S - ; Shut down the device 
CHAN = @4(AP),- 
hes = o10 SETMODE ! 1OSM_CTRL! 10$M_SHUTDOWN, - 
ASTADR = CHK Q{0_AST,- 
ASTPRM = #PRA 
04 RET 
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! y : ~SBTTL CHECKIOSB = Check 10 status block 
1057 § ; FUNCTIONAL DESCRIPTION: 
! f ; This routine checks the I0 status block = #SS$_NORMAL 
1 sf § 3; CALLING SEQUENCE: 
! Is 19 ; BSB CHECK_10SB 
1 25 \¢ ; INPUT PARAMETERS: 
1057 135 3 NONE 
1057 14 ; 
192e 15 ; IMPLICIT INPUTS: 
1057 16 3 NONE 
\32e WZ 3 
1057 18 ; OUTPUT PARAMETERS: 
1057 19 ; NONE 
1057 8 9 3 
1057 1 ; IMPLICIT OUTPUTS: 
! 3 8 ¢ 3 Exit with status if I0SB not right 
1057 2024 ; COMPLETION CODES: 
1057 2025 ; 10 status in STATUS if error 
1057 2026 ; 
1057 2027 ; SIDE EFFECTS: 
1057 2028 ; Program exit if error found 
1957 3 9 : 
1057 0 
1057 2031 tHECK. 1088: 
0000 ' 8F OBE6'CF B1 1057 O36 XE_IOSB,#SS$_NORMAL ; Is the QI10 0.K.? 
01 12 105€ 203 BNEQ 108 ; Br if not 
05 1060 2034 RSB 3; Return 
196) 035 10$: 
7E OBE6'CF 3C 1061 2036 MOVZWL XE_IOSB,-(SP) ; Push the error status code 
0769°CF 6€ DO 1066 so%e MOVL (SPB) ,STATUS ; Set return status 
01 DD 1068 2038 PUSHL #1 ; Argument count 
O5SOF 31 1988 $bz0 BRW ERROR_EXIT ; Error exit 
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: ~SBTTL Check Q10 AST Routine 
; "FUNCTIONAL DESCRIPTION: 

This routine will be called as a Q10 completion AST routine 
It checks 10 status block and the AST parameter 


; CALLING SEQUENCE : 
Called via AST at $010 completion 


INPUT PARAMETERS: 
NONE 


vents WEBEL 


ow 
— 


IMPLICIT INPUTS: 
NONE 

; OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 


Error message if error 


: COMPLETION CODES: 
10 status in STATUS if error 


; SIDE EFFECTS: 
Program exit if error 


in 


HK -Q10_AST: 
. WORD 


SOOOCCCCOCCSOSGGCOSOOCSCOSOSOOSOOOOSCOOOCOOCOOOOCOOOOoOOoOO - 
CONAULS NNO OOONAUE WIN SO OONAU EAN OOONOUES wry Mm 


x 
Se a es ss = = Ws 2 2 sa ss ss ss ss 
SN NSN SSS DR PAA AAA AAA MITT 


OFFC “M<R2, RB. “we R5,R6,R7,R8,R9, “ie “eg Entry mask 
FFE2 30 CHECK_10S : 6o k 16 status block 
04 AC 00000064 8F D1 CMPL #PRM, ZLAP) : Check ath paramete 
01 12 BNEQ 10$ : Branch if not #1 (STARTUP) 
04 10$ RET 
OA77'CF OF PUSHAL ASTPAR_ERRMSG ; Error message 
FFSF 31 BRW FAIL_OOT 


race #8) | 
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ewe 
~OO 
om 


-SBTTL Remote Loopback 1/0 Timeout AST Routine 


p++ 
; FUNCTIONAL DESCRIPTION: 

This routine services the completion AS? if during the remote loopback 
test we time out while waiting for a message to be returned. It forces 
the test to continue by setting the event flag for which we were waiting 
when we timed out. 


CALLING Prevemye' 


DE 
ck 
0 
Hae 
1087 § 3 
1087 4; 
} 4 > 3 
Hae 
1087 : ; Called via AST 
1 8 03 : INPUT PARAMETERS: 
: ef 4 3 O4(AP) = Ignored 
1087 O94 ; IMPLICIT INPUTS: 
i 2 3 NONE 
1087 $99 > OUTPUT PARAMETERS: 
1087 $099 ome 
1087 100 : IMPLICIT OUTPUTS: 
Er 3h to 
1087 108 : COMPLETION CODES: 
1985 is? 3 Status from $SETEF 
1087 106 : SIDE EFFECTS: 
1087 2107 ; Another timer AST is enabled. 
1087 2108 ; Synchronous test continues because event flag is set. 
1087 2109 ; 
1B gue = 
1087 1 LOOPBACK_TMO: 
0000 +4 14 a ~WORD = “M<> 
21 0049'CF €E9 1089 2115 BLBC FLAG,5$ ; Skip this msg if normal running... 
108E 118 3; «Since there will be another anyway 
108E 11 $FAO_S CTRSTR = LOOPBACK_TMO_MSG,- 
108E 18 OUTLEN = BUFFER_PTR,- 
Hi t3 13 ete . Le BUF ,- 
108 121 P2 = ITERATION 
0213 30 10A 1 § BSBW Dune SIGNAL 
1256'CF 0 FB 3 1 CALLS #0,00MP_STAMPS 
50 7E DE 10AF 2124 5$: MOVAL =-(§P),RO : Create STATE holder for following 
1988 125 SREADEF_S EFN = #XMIT_EFN,- ; Check to see... 
108 1 $ STATE = (RO) 3 «.-if we hung while trying to transmit 
8E 05 03 108D 21 BITL #XMIT_EFN, (SP)+ ; Have we transmitted successfully? 
10C 128 ; Note: "ha9 is set except while in... 
10C 129 TS pout S$Q10W in REMOTE _LOOPBACK_TEST 
OF 12 10C 1 9 BNEQ 10$ ; BR if transmit is complete - we're... 
10€ 1 > ...waiting for recy, and that will 
10C 1 g > ...eventually terminate 
09 0049°CF O01 €1 10C 1 BBC #TEST OVERV,FLAG, 108 ; BR if overall timer hasn't rung yet 
6B'CF DF 10C 134 PUSHAL TIRE OOTY ; We seem to be hung in transmit. Abort 
13D1'°CF 801 «FB loce 3 ue CALLS #1, TIME_ERR_OUT 


ee ct nae = . . 4 
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1001 2137 SSETIMR_S DAYTIM = HALFMIN,= ; Allow time for messages to complete 

10D1 1 § ASTADR = LOOPBACK TMO,= 

1 D4 1 REQIDT = #LOOPBACR_TMO 

10E 140 SSETEF_S EFN = #RECV_EFN 

04 10FO0 2141 


ee 
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LJ 
m 
Ne 
~O 
om 


-SBTTL Remote Loopback 1/0 Completion AST Routine 


FUNCTIONAL DESCRIPTION: 
This routine seresees the .conetetion AST from the remote loopback test's 
ay tonst to read. It has to be a bit more forgiving than most routines, 
since we may have $CANCELLed the 1/0 due to a timeout. The timeout 
happens occasionally since not all Ethernet messages are delivered. 


] 

CALLING SEQUENCE: 

; Called via AST at $Q10 READ | 
; INPUT Sepey eae b 

O4(AP) = Index wate SIZE_TBL1 for the size of the message we attempted 

} 


to read. This index may be used for LOOPBACK_ACK as well, a 
parallel table. 


IMPLICIT INPUTS: 
RCV_IOSB - $Q10 read completion status 
it a - Table of message sizes 


ON - Count of successful messages sent 


; OUTPUT PARAMETERS: 
ITERATION - Incremented if this message was successful 


; IMPLICIT OUTPUTS: 
; LOOPBACK Mee Poa - be set to indicate that a particular message size was 
receive 


COMPLETION CODES: 
Status from RECV_AST 


; SIDE EFFECTS: 
Message and program exit if error found 


; 
: 
‘ 
; 
; 
‘ 
‘ 
; 
4 
; 
: 
‘ 
; 
: 
; 
Py 
. 
» 
; 
: 
: 
4 
Py 
o 
° 
. 
° 
; 
‘ 
: 
; 
: 
‘ 
PY 
,;== 


LOOPBACK _AST: 
- WORD 


FWD (OOD NAMNE WIN $$ O OD NAME WIN | CO OD NAME WN OOONOUS WN * 


ee ee ee ee ee ae ed dd ed od od od = 3 3 3 3 dd 3 3 3 
WOOO OOO WO O09 0000909 I INI NNN ND DEDEDE DED DD DAD TT BS PPE OO 


SS a Sn ee es Be Be Bes es es Bn Bn Bn Be ee es De ee ee es ee el 
TAA H MO NINO DO BO NI at tt SS Ss Ss Ss 2 Ss Ss Ss Ss Ss 2 Ss Ss Ss 2 Ss SS SS 


a a a ee ee ee ee ee ee rr eel 


PIPQPDPPPIPIPOPRIPINIPIPYIPIPPYDINIPINIPINIAIPAINIPINPIDINIPUNINPINY 


00c0 “M<R6,R7> 
04 dO MOVL O4( AP) ,R6 ; Get index into SIZE_TBL1 
57 OBFC'CF 00 MOVL RECV_BUF ADR ,R7 ; Get pointer to message buffer 
OA A7 gp PUSHL 10(R 
7E OBFO'CF C 5 MOVZWL Reve 10SBe¢ -(SP) 
1221°CF 2 FB § CALLS #2,REC MP ; Remember message received if dump mode 
OBEE ‘CF 0000 ' 8F 61 CMPW ress ABORT. RCV_IOSB ; Did we SCANCEL this transmission? 
50 =«(13 8 BEQL 20$ ~ ; BR if so, no point in normal checks 
3B 0049'CF EY 9 BLBC FLAG,1 : Skip sequence check if normal running 
OA A? 0791°CF D1 0 CMPL ITERATION, 10(R7) : Check message sequence number... 
Site 1 BEQL 0 3; ...and skip if it's OK 
; $FAO_S CTRSTR = OUT_OF_SEQ_MSG,- 
OUTLEN = BUFFER-PTR>- 
i OUTBUF = FAO_BUF,- 
5 PI = ITERATION, - | 
6 Ps = Size TBL1CR6),- 
P = 10(R7),- | 
: pi = RCV_105B+2,- 
P5 = #0 | 
| 


Reale csc: Cibo aaa : 
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0178 20 1144 0 BSBW a 
1¢56" cf 00 FB 1147 1 CALLS # bORP CS ; List the last several msgs sent @ recv 
OA A 791°CF §8p0 114 , MOVL Hone Sth 10CR?) : Fix up sequence number... 
1} z 108 3 «+80 data comparison can be done 
0054 068, 01 88 11 5 BISB2 #1 LOopBAgK ACK(R6) ; Flag that this size was received 
O99E 'CR46) «DD O11 6 PUSHL site TBL1CRB] ; Now call general routine... 
1182°CF O01 FB 115¢ CALLS #1,RECV_AST j «+.to check message's correctness 
04 1183 3 RET 
116 10 20$: $FAO_S CTRSTR = ere MSG,- 
116 11 OUTLEN = BUFFER PTR,- 
116 \¢ OUTBUF = FAD BUF ,- 
118 1 1 = TERATION 
0141 30 «+11 14 BSBW DUMP SIGNAL 
1256'CF 00 fe ay iF CALLS #0,D0MP_STAMPS ; List the last several msgs sent & recv 
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11 -SBTTL Receive data AST routine 


$s 

FUNCTIONAL DESCRIPTION: 
This routine will be called as receive data AST routine 
It gheche 10 status and compare the data in the receive buffer 
against the transmit buffer 


CALLING SEQUENCE: 
Called via AST at $Q10 READ 


INPUT PARAMETERS: 
AST parameter = message length 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
Error message if error found 


COMPLETION CODES: 
in STATUS 


SIDE EFFECTS: 


: OUTPUT PARAMETERS: 
; NONE 
: Program exit if error found 
R 


DB BBB BBE EE EAI mnonononononononnun 


DOO NAUSEA OS OO NA UEP O OO NAUE WN OOONAUS WN OOM 


PIPIPOPOPINIPIPIPPININYINDIPIPINIPYININPIPIPYPIPIPIPIPYIPIPIPUPONIPIPYIPONY 


em me ee me me ee me me ee a ee a ad dd od dd od ts 

me ee ee ee ae ed td = 8 = od = = 2 4 2) SS 3 3 2 — 3 — 3 3 —) 2 — 3 3) —) — 3 — 3 3) 4 

cvovVveCOOWOIoow for YS SP OOOO WO OW WOW WOWOWWOWWWWDWOWWWOWOWOWOWDWWOOWODoOwocn*coococ 
DNID OO WNP OO & SF PIPMIPIPOPPPMPPYPIPOPYNPOPON) 


ECV_AST: 
. < , . . eo oO eo . . . > é ntry mas 
OFFC WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 E k 
54 04 AC DO MOVL 4 (AP) ,R4 ; Message length as ast param 
55 OBFC'CF 00 5 MOVL RECV_BUF _ADR,R5 ; Address of receive buffer 
56 6OBF8'CF 00 5 MOVL XMIT_BUF_ADR,R6 ; Address of transmit buffer , 
08 65 ~ 861 5 CMPW (R5), 48 : Is this an external transfer with a... 
5 : «.eSkip count modification? 
0 12 5 BNEQ 10$ ; BR if not 
6 B4 : 108 CLRW (R5) ; Reset the skip count to zero 
OBEE'CF QO000'S8F B61 5 CMPW #SS$_DATAOVERUN,RCV_IOSB ; Is our buffer too small for message? 
99 13 5 BEQL 12$ ; Length probiens are recoverable (below) 
OBEE ‘CF esol 9 of Has | es cantecants steaes 3 Me ype i O.K.? 
3 no 
54 OBFO'CF Bi 86 12$: CMPW Shy 10Se+2.R6 :; Did we get an entire message? 
26= «13 6 BEQL 15$ ; BR if we did . 
64 $FAO_S CTRSTR = BADLEN,- ; Complain if we did not... 
65 OUTLEN = BUFFER_PTR,=- 
08 OUTBUF = FAO_BUF,- 
6 = ITERATION,- 
4 P = RCV_IOSB+2,- ; ...telling actual size... 
§ Pp = R4 3 «e.versus requested size 
00F8 30 F 9 SBW nr SIGNAL 
1256'CF 0 FB ¢ 7 CALLS #0,DOMP_STAMPS : If in DUMP mode, print a history 
04 if 158 ET ; Treat this as a recoverable error 
66 65 54 29 74 CMPC3 = =R4,(R5), (RO) ; Compare the data 
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10 12 110C 75 BNEQ 30$ 
04 11DE 4 RET 
11DF 77 208: 
7 OBEE'CF 3C 11DF 4 MOVZWL RCV_IOSB,=-(SP) ; Push the error status code 
O769'CF 6E& DO 1164 227 MOVL  (SPY,STATUS ; Set return status 
9} D 11E9 0 PUSHL #1 3; Argument count for the error message 
0391 1 1}58 1 BRW ERROR_EXIT ; Error exit 
11EE : 30$: 
7E 61 SA ire 4 MOVZBL (R1),-(SP) ; Get ee: by 
7E 3 9A IF 5 MOVZBL (R3),-(SP) ; Get 
7E 54 50 «(C3 (11F4 6 SUBL3 RO,R4,-(SP) ; Get the byte number 
5B 07B8'CF 0000788 ' 8F C1 =#411F ADDL #UNIT ri} UNI List. R11° 3 Get the unit block address 
14 AB DF 120 8 PUSHAL UETUNT TrILSPCTAT ; Use it to point to the device name 
04 ODD 120 89 PUSHL #4 ush arg count 
0074801A 8F DD 1207 90 PUSHL #UETPS_DATADEVERR!STSS$K ERROR’ : ; Push the signal name 
06 DOD 120d 91 PUSHL ; Push arg count 
0074801A 8F D0 120F 3¢ MOVL  #UETPS_DATADEVERR! STSS$K_ERROR,- 
0769'CF 1215 9 ; Push the signal name 
0364 31 1218 94 BRW ERROR_EXIT ; Failure exi 


72 aed 


I 11 
ue yueanoe VAX/VMS UETP DEVICE TEST FOR THE UNA -SEP=-1984 2 3 37 +43 AX/VMS Macro V04- ri Page 55 
v04-000 DUMP Mode Routines “SEP-1984 04:26:50 CUETP.SRCJUETUNASOO.MAR; 1 (23) 
9 Pe »SBTTL DUMP Mode Routines 


38 : ; Being a set of routines to keep track of the Last soyere} messages sent 

99 ; and received during the remote loopback test if runni 4 n DUMP mode. 

; 9 yt a STAMP ($QI10 transmit time stamp) or RECV_STAMP (AST received 
me stamp): 

PUSHL StL Et a SEQUENCE-NUMBER 

PUSHL . FFER=- 

CALLS OMIT. RECV}_STAMP 


To call tt?” STAMPS (dump recent time stamps): 
CAL #0,DUMP_STAMPS 


1218 
1218 9 
1218 
1218 
1218 9 
1218 
1218 § 
121B 
1218 4 
1218 5 
1218 § 
1518 5308 
1218 09 -ENABLE LSB 
1218 2310 XMIT _STAMP: 
0004 1218 11 WORD “M<R2> 
50 D4 121D \§ CLRL RO ; Remember that we're XMIT_STAMP 
“ie " 1534 13 RECV_ STARR ee 
0004 1221 2315 «WORD “M<R2> 
0 O01 D0 1223 31$ MOVL #1,R0 ; Remember that we're RECV_STAMP 
52 OCSB8°CF DO 1226 2317 10$: MOVL SBP,R ; Get perloter into time stamp List 
2 50 60 1228 2318 MOVW RO, (R2)+ ; Save RECV/ XMIT... 
82 04 AC BO is¢f $339 MOVW 04 (AP), (R2)+ : .+-length of message... 
82 O08 AC DO 12 320 MOVL O8 (AP), (R2)+ 3 «+-mMessSage sequence number... 
1236 2321 SGETTIM_S TIMADR = (R2) t ...and time when sent or received 
52. 08 CO isi $3 ¢ ADDL2 ~#8,R2 ; Point to the next time stamp slot 
52 Q0000D5C'8F 01 1 g 3 CMPL #STAMP -BUFFER+TSCLL,R2 ; It's a circular List - have we... 
14 124 324 BGTR 20$ 3 «+.gone around? BR if we have not 
52. OCSC°CF DE 1248 2325 MOVAL STAMP_BUFFER,R2 ; Reuse slots at beginning if we have 
OC58°CF 52 0 1930 358 20$: MOVL R2,SBP ; Save pointer into time stamp List 
1626 309 -DISABLE LSB 
1586 ; 0 DUMP_STAMPS: 
0004 1256 31 WORD “M<R2> 
SF 0049'°CF E9 1258 336 BLBC FLAG, 30$ ; Skip dump if not in DUMP mode 
125D $FAO_S CTRSTR = TIME STAN INTRO_ MSG,- 
125D 4 UTLEN = UFFER. 
138) 5336 by OF Revri0s Es 
125D tH P2 = RCV “10SB+4 
43. 10 1278 8 BSBB DUMP_SIGNAL ~ : Indicate what's to follow 
52 C58'CF 08 127A 328 MOVL ser oR ; Pick up pointer into time stamp List 
. ..e tt Vere 40 10$: SUBL2 ; Point to previous slot 
52. o0000C4c'BF D1 1 : 41 CMPL ' STAMP _BUFFER-16,R2 ; Are we at the start of the List? 
~~ 3 2g BLSS $ BR if not - slot is Lopte 
52. QOD4C'CF ODE 1 4 MOVAL STAMP_BUFFER+TSCLL-16,R2 ; Set pointer to Last slot 
OCS8°CF 5 DI 129 44 208: CMPL R2,SB ; “Have we gone full circle yet? 
25 13 «129 45 BEQL ; $ ; BR if we have = exit routine 
50 08 A2 ODE 129 rt} MOVAL (R2),RO ; Get address of time stamp in slot 
1298 234 $FAO_S CTRSTR = TIME_STAMP_ MSG,- - 
1298 re | OUTLEN = BUFFER_PTR,- 
1 4 OUTBUF = aD BUF ,- 
1298 50 P1 = (R2J,- 
1 51 P = 2 (Re .~ 
1 98 52 P = 4(R ).° 
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1 a 3 P4 = RO 
03 19 128 4 BSBB bua SIGNAL ; Type one time stamp.. 
C 12BA 5 BRB 10$ 3 and loop for the next 
12BC § 30$: RET 
12BD 
12BD 33 DUMP_SIGNAL: 
0053'CF DF 12BD PUSH aren PTR 
4 DD 12C1 PUSHL 
00741133 8F DD 12C3 60 PUSHL ° ETPS_TEXT‘STSS$K_INFO 
00000000'GF 03 FB 12C9 6¢ CALLS ,G*LIBSSIGNAL 
05 12D0 6 RSB 


VAX/V 
COUNT 


xm 


K 11 
TP DEVICE TEST FOR THE UNA  16=SEP=1984 01:37:49 YAX/VMS Macro v04-00 : ? 
dex Routing met rae ee ae TS et ee 


-SBTTL COUNTER_CHECK Routine 


{FUNCTIONAL DESCRIPTION: 
Gout ine s the UNA counters checking routine. A List of 
spec i c UNA counters which are considered to indicate errors 
is ref hy oe at CNTR 58h When the counters are read their 
value hecked to sée if it is non zero. If non zero a warning 
message v LL be printed containing the name of the counter and 
s value. 


: CALLING SEQUENCE : 

; PUSHA ¢ UNTER_DESC 

; CALLS » COUNTER. CHECK 
: INPUT PARAMETERS: 
: 4(AP) = Address of the counters to check. 
IMPLICIT INPUTS: 

F NONE 


; OUTPUT PARAMETERS: 
; Sets the error occured flag if a warning message is printed. 


IMPLICIT OUTPUTS: 
Error or success messages 


; ; COMPLETION CODES: 
NONE 
; SIDE EFFECTS: 
NONE 


COUNTER_CHECK: 
. WORD 


PWN 9 ODONAU EWAN SO OO NOAU EWN O ODN EWN OOONOAUW 


movvvVv Vor VTVCvVTVCTVCVCCTCC"C0"0C0"0"000"000"0"0"0"0"0"0"00"0"0000090 | 


fre nry PU— PP NIWA PP PP SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS SS OT 
4 AQOODODOOOSO OOOO OO OOO 009.0000 00 09 09 09 09 09 09 SI NI NINN NOAA AO OO 


BRP RRR PPP PPE PPPS EEE FWA NAAN AAA AAA NAIA A A NANNIAAN 


OFFC “M<CR2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> 
56 04 AC 00 MOVL 4(AP) ,R6 ; Get the descriptor address 
) a’ om - MOVZWL a0e? R7 ; Get the buffer size 
OBE2'CF 0406 5S? C1 ADDL3 724 (R6) ,END_ADR : Save the buffer end address 
56 04 A6~ 00 5 VL Bae) ; Get the buffer address 
59 O88D'CF ODE E $ es Loop ovat CNTR_ BL, RO : Set table address 
OBE2'CF 38 D1 E 8 CMPL R6,END_ADR ; ALL done? 
03 12 126 BNEG =: 108 ; BR if not... 
oopc = =ssé51 : ? 108 BRwW COUNTER_EXIT 3 ..-else bail out 
58 8 3C F § MOVZWL (R6)+,R8 ; Get cntrl desc 
0 €EF F7 EXTZV #NMASV_ CNT_TYP,- 
§ Fg 4 #NMASS— _CNT_ “TYP,- 
58 4 5 208 RB ; Get the counter type 
SA 9 3X FC 5 MOVZWL (R9)+,R10 ; Get a table code 
0 EF FF 8 EXTZV #NMASV_ CNT_TYP,- 
C 8} #NMASS— CNT_ TYP,- 
58 A 2 $9 R10,R1T ; Get the counter type 
58 4658) =OoD1Ss«1304 1 CMPL =sRB Meth : Is this it? 


——d 
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| 
13° 1307 24 BEQL 808 ; BR if 
59 9% CO 1309 24 3 ADDL2 #4,R9 ; Skip none ointer 
00900887 ' &F 9 »D1 1 424 CMPL R9,#TBL_END : End a teb eo 
Se ee 425 BNEQ ; BR 
59 OB88D'CF DE 131 4 § MOVAL CNT RY ; Set table address 
D EF 131A 24 EXTZV SNRASY PtNT _WID,- 
2 131C 24 8 ANMASS CNT_WID,- 
58 FE A6 1310 24 R6)> Get the counter width 
03 FE A6 os ae 9 450 BBC WNMASV. CNT_MAP,=2(R6), 308 ; ; If not a mapped counter then carry on el 
56 0 co : r 1 $08 ADDL2 #2,R6 ~ 3 «Skip the map word 
02 01 58 8F 1 4 § CASEB RB,#1,#2 3; Skip the counter 
132C 434 40$: 
0017' 132C 2435 -WORD 50$-40$ 
85 45¢ 1 4 § » WORD st ard 
0022° 1 4 «WORD 0$-40$ 
O29A'CF ODF 1 438 PUSHAL CASE_FAILED ; Push the string address 
DD 1336 2439 PUSHL 1 ; Push the argument count 
00741132 8F DD 1338 2440 PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the signal name 
3 D 133 441 PUSHL # ; Push the argument count 
023C 1 134 Prk BRW ERROR_EXIT ; Thats it 
13 443 50$: 
56 6 1343 2444 INCL R6 ; Skip a byte counter 
FFA2 1 1345 2645 BRW CHK_LOOP 
1348 2446 60S: 
56 602 0 1348 2447 ADDL2 #2,R6 ; Skip a word counter 
FF9OC 1 1348 2448 BRW CHK_LOOP 
134E 2449 708: 
56 04 0 134€ 2450 ADDL2 #4,R6 ; Skip a long word counter 
FF96 1 1351 2451 BRwW CHK_LOOP 
1354 t2§ 80$: 
OD EF 1354 45 EXTZV #NMASV_CNT_WID,- 
02 1356 2454 ANMASS _ CNT_WID,- 
58 FE A6 1357 2455 (R Get the counter width 
O03 FE A6 OC €1 135A 2456 BBC WNMASV. CNT_MAP,=-2(R6), 908 : If not a mapped counter then carry on el 
56 Ge CO : 7 rH 908 ADDL2 #2,R6 ~ 3 ..-Skip the map word 
02 01 58 8F 1 8g 459 CASEB R8,#1,#2 ; Skip the counter 
1366 2460 100$: 
0017" 1366 2461 WORD 1398-1908 
OO1F* 1368 186 -WORD 120$-100$ 
0027" 136A 246 «WORD 130$-100$ 
O29A'CF DF 136C 464 PUSHAL CASE_FAILED ; Push the string address 
DD 137 465 PUSHL @# ; Push the argument count 
00741132 BF ODD 137 £08 PUSHL M#UETPS_TEXT!STSSK_ERROR ; Push the signal name 
bo 137 46 PUSHL # ; Push the argument count 
0202 1 137A 2468 BRW ERROR_EXIT ; Thats it 
137D $6? 110$: 
OBDE'CF 86 9A 137D 2470 MOVZBL (R6)+,COUNTER ; Get a byte counter 
000D 31 ’ ef) 1208 BRw 140% 
OBDE ‘CF 86 3 1 138 MOVZWL 1082+. COUNTER ; Get a word counter 
00 1 138A 2474 BRW 140$ 
138D 2475 130$: 
OBDE'CF 86 D0 1 $78 MOVL (R6)+, COUNTER ; Get a long word counter 
139 477 140$: 
08 12 139 478 BNEQ 150$ 


<c 


* 
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Ve. eb08 COUNTER_CHECK Rou Sine ets te 6:50 CUETP.SRC GETUNASOD. MAR; 1 . Gay 
59 O88D'CF Bf 139 479 MOVAL CNTR TOL Rd ; Reset the table address 
FFGE } 9 : 1508 BRw CHK _COOP ; BR if counter was zero 
1 3 4 SFAO_S CTRSTR = COUNTER pas. ; Generate a bad counter message 
1 3 4 OUTLEN = BUFFER_PTR 
1 484 ened = FAO BUF,- 
139 485 Pp = 
139¢ 24 : P2 2 cee 
OOS3'CF ODF 138 4 PUSHAL idea ; Push the string address 
} DD 138 4 5 PUSHL # ; Push the argument count 
00741133 DD 138 4 PUSHL ey TEXT!STSSK_INFO ; Push the signal name 
0000000 o"gt FB 13C 4 9 CALLS #3, G*CIBSSIGNAL ; Print the error messa ge 
59 88D vt DF 13C8 249 MOVAL CNTR _TBL,R ; Reset the counter table pointer 
1 13¢ 138 BRW CHK _CooP ; Thats it 
13D 49 
1300 2494 COUNTER_EXIT: 
13D 495 RET 


<c 
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| 
‘a -SBTTL Half Minute Timer Expiration Routine | 
: FUNCTIONAL DESCRIPTION: 
This routine will be called only if the timer which was set to prevent | 
program hangs goes off. 


CALLING SEQUENCE: 
Called via AST at SSETIMR expiration. 


INPUT PARAMETERS: 
NONE 


shales )| OUTPUTS: 
me out error message 


COMPLETION CODES: 
#SS$_TIMEOUT 


SIDE EFFECTS: 
Program exit 


TIME_ERR_OUT: 
. WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> Entry mask 
PUSHL #SS$_ ft 1mEouT : Push the signal name = timeout 


MOVL (SP) “STATUS 


00000000" oA DD 


0769'CF dO Set exit st 
04 RE 


DUP PUPUPV IUPUI SUSU SUSU SU SULUS SUSU SESSILIS E™ S™ 
WNWWIUWIWIWIRIPOPIPININININPINIDD 2 2 PPP MP PQOOOOOOOOOOOO- 
MEUM OOD NAOU EWN OOO NAOUE WN OOD NAUE WIN O OOnN 


PIPIPIPIPPINDPYDIPNINININININYINININIPYINIPINININIPINININPINPOKA 


DD PUSHL 4 (APS i Push the REQIDT which is the timeout 
: stri ng address 
01 oD PUSHL #1 : Push the argument count total 
00741132 8F ODD PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the message number 
DD PUSHL #4 ; Push the argument count 
0191 +31 BRW ERROR_EXIT ; Bail out completely 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 
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s -SBTTL Test End Timer Expiration Routine 
FUNCT IONOL DESCRIPTION: 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


: his routine will be called only if the timer which was set to i) 
; terminate the test goes off. 7 
CALLING SEQUENCE Li 
; Called via AST at S$SETIMR expiration. e 
; INPUT PARAMETERS: E' 
3 NONE Al 
: HAI 
; IMPLICIT INPUTS: D, 
; NONE D 
> OUTPUT PARAMETERS: LI 
; NONE - 
: IMPLICIT OUTPUTS: N 
; NONE N. 
; Ni 
Hy 0! 


TIME_SUC_OUT: 
“WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> ; Entry mask 


cies #TEST_OVERM,FLAG ; Set test over flag 


OFFC 
0049'CF O02 AB 
04 


a tw“ a ws 2 a a a a a = 2 ts ss Ss ss ss os 2» > 4 ss a 
AWWNAA WANNA WI 

HHH HAMM MM MMM MMMM MM MMMM mMmMmmmmmmnmmncnevnieyy 
QoOOMMMMMMM Mm mMmMmmmmmmmmmmemmmmmmmmmmmmmnn 
PUPP PV SV LVS SUPP SUS US USUI SSIS ISIS 


SIDED. DS DS DDS DD DAD. TTT TUTTI EN 


DOD NAUN EWR 0 OONA NEW OOO NAUE WN OOO 


0! 
0! 
0! 
0! 
0! 
0! 
0! 
O! 
0! 
0! 
0! 
0! 
0! 
TI 
¢ 
I| 
I| 
II 
01 


I 
I 
I 
1 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
L 
L 
L 
L 
L 


SZSSSSSSCCCOOCCO 


cH: ee - 


—_ 
aad 


BDOOOGOOGOOCCOC OCOOOOOOOO OWWOOWOWOOOO JINN 


fo elon e alent *al Pal al @ al al al Salah eal eal al ah Al Al Ah Ab AL AL AL AL AL AD A AD AD AD AL AL AD AD Ah dh dh dd Al 
DWDONOULE AR 0 OONAU ES WIN = OO ONA NE WID | 0 OD NOAU EWN CO OD NAME WN OOONOUE Ww 


PIPIPOPPIPIPIPYAIPIPONIPIPYPINYPINIPINININPIAIMPYAIMIPINIMIMNINININN 


a ee el 


NANA NIN. AINA AAAI NIAAA ANIA AIA AIAN NINA AIWN I 


tt tt bbs bns name ne bnstna dna bnainaina nada dna lea aa bna babes beans ins ina nates labia beans bas natna nats inabns ina nains ales eabeabeabea) 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAIAAAAS 


ROROPOROPONONONPONY 2 


PAAAAAPAAAOAOAA AAO 


POPIPOPPIPYPSPYPIPIPINININININY 
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-SBTTL System Service Exception Handler 


ron DESCRIPTION: 


s routine 


s executed if a software or hardware exception occurs or 


if a LIBSSIGNAL system service is used to output a message. 
Information about this method of handling messages and errors can be 
found in the VMS COMMON RUN-TIME manual and in the VMS SYSTEM SERVICE 


manual. 


; CALLING SEQUENCE: 


Entered via an exception from the system 


INPUT PARAMETERS: 
ERROR_COUNT 


AP =--=> 


; IMPLICIT INPUTS: 
NONE 

; OUTPUT PARAMETERS: 

; NONE 


; IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 


= previous cumulative error count 


i 
4 . 
———— ; 
ESTABLISH FP 
DEPTH Mechanism Array 
ea BB «ee i 
| eseseeeeseeeseeoe ' ! 
! R1 . v 


' 
' 
J ! 
! N-3 ADDITIONAL! Signal Array 
' 
PC i 

' 

V 


May branch to ERROR_EXIT 


7 


UETUNASOO 
64-008 

1 
50 0° 
02 
6E 
1 
50 9° 
02 
6E 
56 = 04 AC 
59 04 AG 
10 
Of 
00000074 8F 7 
66 02 
21 
59 00000000" 8F 
76 
01 if 

5A 


ey es er 
08 A 04 
14 

OOSE'CF 

1A 


01 


0769'CF 2 
59 seein 


9 
8 
F 
8 
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13F 6 
15F SSERROR: 
OFFC } f § » WORD “M<RZ2,R3,R4,R5,R6,R7,R8,RI,RIO,R1II> ; Entry mask 
13F ° 4 SSETAST_S ENBFLG = #0 ; Disable AST delivery 
DD 178 5 PUSH #1 3; Assume ASTs were enabled 
o 14 6 8 CMPL S“#SS$_WASSET,RO ; Were ASTs enabled? 
1 Pt 6 BEQL 10$ ; BR if they were 
D4 1408 26 § CLRL (SP) ; Set ASTs to remain disabled 
140A 2639 108: 
140A ory SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
DD 1312 9 PUSHL #1 3; Assume SS failure mode was enabled 
DI 141 tg CMPL at tara ; Was SS failure mode enabled? 
13 1418 264 BEQL 0$ ; BR if it was 
D4 Veit ere 208 CLRL (SP) ; Set SS failure mode to remain off 
DO 1461C¢ 208 MOVL CHFSL_SIGARGLST(AP),R6 ; Get the signe) , rer petoter 
7D 1420 264 mova CHES SIG_NAME(R6),R9 =: Get NAME in RO and ARG! in R 
ED 1424 2648 CMPZV = #STSSU_FAT_NO,- ; Is this a aessene from LIBSSIQNAL? 
1426 2649 #STS$S_FAC_NO,- 
1427 2650 R9,MUETPS_FACILITY 
ig 142D 2651 BNEQ 30$ ; BR if this is not a UETP exception 
C 142F $36 SUBL2 #2, CHFSL_SIG_ARGS(R6) Drop the PC and PSL 
1432 265 SPUTMSG_S MSGVEC™= CAFSL_SIG_ anckiRes? Print the message 
11 Week $28 30s BRB 40$ 3 Restore ASTs and SS fail mode 
D1 1443 O28 CMPL #SS$_SSFAIL,R9 ; RMS failures are SysSvec failures 
12 144A 265 BNEQ 50$ ~ ; BR if this can't be an RMS failure 
ED 144C 658 CMPZV ost sey. Bae ee : Is it an RMS failure? 
144E 659 #STS$ 
144F 2660 R10 ARASS CPACILITY 
12 1451 661 BNEQ 50$ ; BR if not 
gh 1453 $66 BICL2 #*XF0000000,R10 ; Strip control bits from status code 
9 145A 66 MATCHC #4 CHF SL S16 -ARG1(R6), - ; Is it an RMS failure for which... 
145E 2664 ana AGT 
145F 2665 Sr RRse at, “TABLE 3 «..no AST can be delivered? 
13 1462 2666 BEQL NOs ; BR if so - must give error here 
1464 2667 40$: 
BA 1464 2668 <RO> ; Restore SS failure mode... 
1466 2669 SSETSFM. 5. ENBFLG = RO , gee 
BA 146F 2670 POPR <RO> 3; Restore AST enable... 
1471 2671 Spe rast § 4 NBFLG = RO ; 
DO 147A ore “$*#SS$_NORMAL ,RO 3 Supply a standard status for exit 
04 1470 267 RET ; Resume processing (or goto RMS_ERROR) 
147E 2674 50$: 
DO 147 675 MOVL R9,STATUS ; Save the status 
D4 14 O78 CLRL 3; Assume for now it's not SS failure 
Di 14 67 CMPL #SS$_SSFAIL.R9 ; But is it a System Service failure? 
12 148C 143 BNEQ ; BR if not - no special case message 
148E 267 SGETMSG_S netere = - ; Get SS failure code associated text 
148E 2680 MSGLEN = BUFFER PTR,- 
148E 681 BUFADR = i F,- 
148E 26 § FLAGS = 
14 3 6 OUTADR = MSG “BLOCK 
14A 684 TSTB MSG_BLOCK+1 : Get FAO ack count for SS failure code 
14A9 2685 BEQL ; Don't use TMSG if no S$FAO args... 
14AB 686 PUSHAL BUFFER_PTR 3; ...else bui ¢ UBsac 
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TUNASOO 1 4 QI: AX/VMS Macro V04-00 Page 64 
v04-000 System Service Exception Handler g78E 71382 4: 36; Hi UETP.SRC SETUNASOD. MAR; 1 (3) 
1 DD 14AF 2687 PUSHL s ooe8, message describing... 
00741130 8F DD 1481 26 § PUSHL vere 14 i o«eewhy the -Systen Service failed 
00 5A FO 1487 26 INSV STS$V_SEVERITY,- ; Give the message... 
of 14BA 0 SEVER ITY, (SPS 3 pti correct severity code 
8 09 148C 91 MOVL ; Count the number of args we pushed 
11 14BF 36 BRB ; ‘ 
14C1 2695 60S: 
3a DD eo | o3¢ PUSHL R10 ; Save SS failure code 
58 1 00 t 932 708 MOVL #1,R8 ; Count the number of args we pushed 
57 6 4 ¢ 1ae6 $99 MULL #4,CHFSL_SIG_ARGS(R6),R7 ; Convert longwords to bytes 
3 7 § 14CA 4 SUBL R7,SP ; Save the current signal array... 
6— O4A 7 14CD mMovCc R7,CHFSL_SIG_NAME(R6),(SP) ; ...0n the stack 
7E 666 8 4 14D2 9 ADDL R8,CHFS$L_SIG_ARGS(R6),-(SP) ; Push the current arg count 
00A6 31 1406 2701 BRW ERROR_EXTT 
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‘a -SBTTL RMS Error Handler 
> FUNCTIONAL DESCRIPTION: 


—D 
= 
Lj 
Oo 


; This routine handles error returns from RMS calls. 
: CALLING SEQUENCE: 
; Called by RMS when a file processing error is found. 


; INPUT PARAMETERS: 
NONE 


wmPLICHS INPUTS: 
he FAB or RAB associated with the RMS call. 


OUTPUT PARAMETERS: 
NONE 


ee St SS | “QOOOCOO 


WOO NOAU EWN OS ONAN EWN 9 OOD NAM EWN (OOO NAU EWR) OC OONOAUE WR OWOONAUE WW 


IMPLICIT OUTPUTS: 
Error message 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: : 
Program may exit, depending on severity of the error. 


Sete Se Se Ge Ge Ge Ge Ge Ge Se Ge Be Se Ge Se Ge Se 


So 
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n 

oO 
a a ec eel el ee el el eld eel el eel eel eel el ee el cel el el eel el ee cl el el eel el eel el el eel el el ee el el el el cel el el el el eel el eel el eel el eel eel eld 
PPPS SVS Be ES ES ES ES BEEP PPP PPP PPP PPP PPP PPP PPP PPL LEE SE 
WW | “QC MN HWW MMMMMMOOOVVTVVVTVVOV VV VVVVCVVVVVVCVVTC0"0_0C0000 
AF AWWW Th OOWW™ BP OMIMNO OFLU "DD OOOOOOOOOOVODOVDODOVODODODOOOOODODOVDOWOO 
a i i i Ni NN BB BB i i eS ee ie Se St et et te ee i, 
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2 
; 
31 RMS_ERROR: 
; ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Entry mask 
56 04 AC 00 3 MOVL 4 (AP ; See whether we're dealing with... 
66 03)—«(O9 3 CMPB PrABSe. RBID, FABSB_BID(R6) ; ...& FAB or a RAB 
16 12 3 BNEQ 10$ ; BR if it's a RAB : 
57 Q9E6'CF ODE 3 MOVAL FILE,R7 : Tie-neos tite code: text string... 
58 56 «0 3 MOVL R6,R8 : ---address of FAB... 
OC A6 OOD 3 PUSHL FABSL_STV(R6) ; «STV field for error... 
08 A6~ ODD 4 PUSHL FABSL_STS(R6) 3; .-.STS field for error... 
0769'CF 08 “0 b0 4 MOVL FABSL_STS(R6),STATUS 3 «--and save the error code 
1 11 t 108 BRB COMMON ; FAB and RAB share other code 
57  O9F2°CF ODE 4 MOVAL ac cone R7 ; RAB-specific code: text string... 
58 3C€ A600 4 L L_FAB(R6) RB 3 ...address of associated FAB... 
bg A6 OD 4 PUSHL RABEL “STV(R6) 3 ...STV field for error... 
8 A6 DD 4 PUSHL RABSL _STS(R6) 3 «STS field for error... 
O769'CF 08 AB DO t commen L RABSL_STS(R6) , STATUS : ...and save the error code 
5A 34 AB QA 5 MOVZBL FABS$B_FNS(R8),R10 3; Get the file name size 
5 SFAO_S CTRSTR = RMS ERR STRING,- ; Common code, prepare error message... 
5 OUTLEN = BUFFER _PTR,- 
2 head = F AO_BUF ,- 
P = R7,- 
5 Ps = R16,- 
; P = FABSL_FNA(R8) 
OOS3'"CF OF PUSHAL BUFFER_PTR 3; «..and arguments for ERROR_EXIT... 
DD 5 PUSHL #1 5 sas 
00741130 8F OD 5 PUSHL #UETPS_TEXT S axe 
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VO4000 RMS Error Handle g Ep: 1984 te 36: Hi LUETP. SRC GETUNASOO MAR: 1 ° (38) 
7 EXTZV #STSS$V_SEVERITY,- 
7 ool su eepgvens tv e= 
7 STATUS »R i «2.get the severity code. 
76 BISB2 aye ter? 3 «-.and add it into the signal name 
76 PUSHL # : Current arg count 
76 BRw ERROR_EXIT 
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~SBTTL CTRL/C Handler 


| 
j++ 
: FUNCTIONAL DESCRIPTION: | 
This routine handles CTRL/C AST's | 


CALLING Frouemee 
Called via AST 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Bete Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 


8 
OFFC ; ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 
O2CF'CF OF A PUSHAL CNTRLCMSG ; et message pointer 
DD f PUSHL #1 Set arg count 
00741130 8F OD PUSHL MUETPS_TEXT!STSSK WARNING Set signal name 
DD 8 PUSHL #0 + lndleste an abnormal termination 
06C3'CF OF PUSHAL * weres NAME poses 
DD C PUSHL 
007410€0 af DD E PUSHL AUETPS AB ABENDD !STS$K “WARNING: : 
00000000 ' GF FB 4 CALLS @# : Output. the message 
D0 MOVL rest sén" INIB nSG!~ : Set the exit status 


SS$_CONTROLC-- 
ares. SUCCESS*STSSK -WARNING>,= 


O769'CF OFFFFFFF'8F STATU 
SEXIT_S STATUS :; Terminate program cleanly 


—DOOGDOOOCOOCO OOOO OOOO O OW 00090909 0908 NIN NNN NOOO 
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-SBTTL Error Exit 


| 
157F 18 | 
157F 15 344 
157F 14 ; FUNCTIONAL DESCRIPTION: 
: 44 13 3 This routine prints an error message and exits. 
137 13 ; CALLING SEQUENCE: 
157F 18 ; MOVx error status value, STATUS 
Vac 19 ; PUSHx error specific information on the stack | 
157F 9 3 PUSHL current argument count 
137 13 BRW ERROR_EXIT 
130 5 3; INPUT PARAMETERS: 
130 : 3 Arguments to LIBSSIGNAL, as above 
157F 8 8 ; IMPLICIT INPUTS: 
157F 2827 ; NONE 
157F 828 ; 
157F 2829 ; OUTPUT PARAMETERS: 
130F aay 3 Message to SYSSOUTPUT and SYSSERROR 
157F o36 3 stalinanty) OUTPUTS: 
157F Ht : Program exit 
157F 2834 ; 
157F 835 ; COMPLETION CODES: 
157F 36 ; NONE 
157F 37 3 
157F 838 ; SIDE EFFECTS: 
157F +4 3 NONE 
157F 40 ; 
157F 2841 ;-- 
157F Ha 
157F 845 ERROR_EXIT: 
157F 2844 
157F 2845 SSETAST_S ENBFLG = #0 ; ASTs_ can play havoc with messages | 
15 0049'CF 03 £0 1388 846 BBS #BEGIN “MSGV, FLAG, 10$ ; BR if “‘begin’’ msg already printed 
7E 04 158€ 2847 CLRL -(SP) ; Set the time stamp flag 
OOOF*CF DF 1590 B48 PUSHAL TEST_NAME : pet the test name 
02 DD 1594 49 PUSHL # ush the argument count 
00741039 8F DD 1596 2850 PUSHL #UETPS Risin _succéss': Set the message code 
00000000'GF 04 FB 1348 31 ae CALLS #4,G*LIBS$SIGN ; Print the startup message 
O7AD'CF O08 8E C1 15A “4 ADDL3 iseiee a ANG. COUNT ; Get total # args, pop partia. count 
O765°CF D6 15A9 54 INCL ERROR 3; Keep running error count 
00 DD 1340 55 PUSHL #0 ; Push the time parameter 
Bere er DF 15AF 28 PUSHAL oate 5 NAME : Push test name... 
OOOFO002 8F DD 1583 5 PUSHL -+-arg count... 
007410E or DD 1589 2858 PUSHL fers ABENDD! STSS$K ERROR -.-and signal name 
765° DD 15BF 2859 PUSHL ERROR COUNT ; Finish off arg list... 
10653, DF 1368 60 PUSHAL process NAME ‘aT 
335 y DD 15C 61 PUSHL *x10002 
7489 DD 1308 $¢ PUSHL M#UETPS ERBOXPROC!STSSK _ERRO R oes for error box message 
00000000' or O7AD'CF FB 1303 63 CALLS ARG_COONT,G*LIBSSIGNAL™ ; Trust tch 
O769'CF D5 1206 65 TSTL syatus : Did we exit with an error code? 
» ta 7 96 BNEQ 0$ ; BR if we did : 
00741062 F DO 13e8 6 MOV. § #UETPS_ABENDD!STSS$K_ERROR,- ; Supply a generic one otherwise 
0769'CF 15E 68 STATUS 


venng™ 


1 208: 
0769'CF 10000000 8F C8 1 EB H 
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TLS STAT 


st 4 DE a INHIB_MSG,STATUS ; 


"$o$EP-1986 04:26:50 


AX/VMS Macro V04- 
UETP. SRC JUETUNASO 


in err 


0 
MAR; 1 


Don't print pennagen twice! 
3; Exit 


: 
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-SBTTL Exit Handler 


vase uy 


; : FUNCTIONAL DESH IET ION: 

This routine handles cleanup at exit. 
equated to ‘'ON the routine will upda 
UETINIDEV.DAT file depending on the UET 

UETUNTSB_ FLAGS field of the unit block 
under test. 


; : CALLING SEQUENCE: 
; Invoked automatically by SEXIT System Service. 


gical ~ ony is 


a 
Fag st state in the 
for the device 


m-—-o 


El 
t f 
ABL 
unit 


; INPUT ret beets 

; STATUS contains the exit status. 

FLAG has synchronizing bits 

DDB. RFA contains the RFA of the DDB record for this device in UETINIDEV. 


: IMPLICIT INPUTS: 
3 UNIT_LIST — to the head of a doubly Linked circular List of unit 
3 locks for the device under test. 


; OUTPUT PARAMETERS: 
; NONE 
; stele spall § 


arious files are de-accessed, the process name is e~ and any 
Metab Topien ie with Be Li EvO1 is carried ou 


MNO OC ON OWA SS ST nn 
so 
oO 


PDP DP PAPA ADP PAPA DGGE 


If the logical name is equated to ‘‘ONE'’, the rout ine will update 
901 ag n the UETINIDE UBAT file dependin 
Ge TUNTSA. 1s ABLE flag state in the UETUNTSB FLA s° Field of the unit 
a7 block for each unit for the device under test. 
905 ; COMPLETION CODES: 
906 ; NONE 
907 ; 
908 ; SIDE EFFECTS: 
909 ; NONE 
910 
911 ;-- 
318 
913 EXIT_HANDLER: 
OFFC 3i3 » WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R1I1> ; Entry mask 
319 SSETSFM_S ENBFLG = #0, ; Turn off Syston Service failure mode 
91 SSETAST_S ENBFLG = # ; We're finished - no more ASTs 
918 STRNLOG_S LOGNAM = - ; Get the run mode 
919 RSLLEN = BUFFER. PTR, 
005B'CF 0 8A 921 BICB2 #LC_BITM, BUFFER” ; Convert to upper case 
005B'CF 4F BF 91 9 ¢ CMPB #°A70/ ,BUFFER s Is fais. ® one shot? 
; 9 BEQL 108 : BR ig 
00B8 31 g : 108 BRW END_UPDATE ; nh Boy don’ t update UETINIDEV.DAT 
03 0049'CF 02 9 9 § BBS #SAFE_TO_UPDV,FLAG,20$ ; Only update if it’s safe 
OOAF 1 208 BRW END_UPDATE ; Else forget it 
5A OE4O'CF DE 9 § MOVAL INI_RAB,R10 ; Set the RAB address 
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A MOV #WRABSC_RFA,RABSB_RAC(R10) ; Set RFA mode 
10 AA oEse'cr fs 3 182 3 ° moves #6,DDB_RFA RABSUCREACRIOD ; Set RFA 7 A. line 
1 ef 9 : $GET RAB = R105 ; Go back to the DDB record | 
75 50 “ 188¢ 9 BLBC RO,UPDATE FAILED . Uf failure Ren forget it 
1E AA 00 90 1661 2934 MOVB_ #RABSC_SEQ,RABS$B_RAC(R10) ; Set back to sequential mode 
07B8'CF 00800788" be C1 1665 935 ADDL3 = #UNIT CIST,UNIT_CIST,R11 ; Set the unit block List header 
59 4 1oGF 9 § CLRL R9 be ; Init a counter 
1671 2937 UNIT_LOOP: 
01 €1 1671 2938 BBC MUETUNTSV_TESTABLE,=- ; BR if this unit is not testable 
02 0B AB 1673 2939 UETUNTSB_ FLAGS(R115,10$ 
59 D6 1878 aef 108: INCL ; Count testable units 
58 6B CO 167 he " — aDDL2—s (R11), R17 : Next unit block : 
00000788 ' 8F i. } 1978 vb et R11 AUNIT LIST 3; Are ve Tuas circle in the List? 
£9 8 1886 302 ort aes = : ay pares units? 
OOSF'CF 4E af 96 1688 309 MOVB _« #*A/N/ ,BUFFER+4 3; eels disable the DDB record... 
JORG 948 SUPDATE RAB = (R10) 3 here 
3¢ 50S s«ED 193 Bep 208 LBC RO,UPDATE_FAILED ; If error then forget it 
a eS 163A 933 | anpLe enti LIST : og ete FF in the List? 
: . Py Ww $ 
enaptnihscys ze 3 16ae 338 BEQL END UPDATE ; BR if yes 
16A6 2954 $GET RAB = (R10) ; Get a record 
24 50 £9 16AF 2955 BLBC RO,UPDATE_FAILED :; If error then forget it 
005B'CF 20 8A 1682 956 BICB2 #LC_BITM,BUFFER : Convert to uppercase 
OOSB'CF 55 8F 91 168 957 CMPB *A7U/ ,BUFFER : Is e. Si record? 
35 12 16BD 958 BNEQ END_UPDATE ; BRifn 
01 €0 16BF 2959 BBS #UETUNTSV_TESTABLE,- ; BR if this unit is testable... 
D6 0B AB 16C1 2960 UETUNT$B_FLAGS(R11),20$ 
OOSF'CF 4E 8F 90 16€4 2961 MOVB #*A/N/ BOF FER+4 3; else disable the UCB record... 
16CA 296 SUPDATE RAB = (R10) 3 ..here 
C4 50 €8 1603 308 BLBS RO, 20$ ; Look at the next record if no error 
16D6 2364 UPDATE_FAILED: 
OC AA DD 1606 2965 PUSHL RABSL_STV(R10) ; Do a simple message.. 
50 DD 1609 396 PUSHL 3 ...to tell of the failure 
00C2°CF DF 1008 th Se pOiev UPDERR 
60 tr 181 969 EXTZV ost aey _SEVERITY,- 3; Copy the severity from RMS status... 
7 30 3 8 1ek8 35 BISL2 13S3- SUSEVERITY :RO. += ($P) to our message 
074 F C Baie 
66000000 GF 05 FB T6ED o7¢ a uppagetes nue Oot TASSIGNAL 
00 oD 18k 974 USHL #0 ; Set the time flag 
OOOF'CF DF 16F6 2975 PUSHAL Vest. NAME : Push the test name 
02 DD 16FA 297 PUSHL # ; Push arg count 
0 EF 16FC 39 EXTZV #STSSV_SEVERITY,- ; Push the proper exit severity... 
88 16FE 44 Ht se yetsty. - 
7E 0769'CF 4 97 STATUS, =(SP) ‘ 
6— 00741080 04 . 170, 44 Push ae trs _ENDEDD, (SP) 3 «and use it in our message code 
PR R1 
" =" 15OF 3 : SPUTRSG. F, MSGVEC = (R1) ; Output the message 
171 984 SSETPRN. S PRCNAM = ACNT_NAME ; Reset the prorest name 
04 +17 3 985 RET 3; That's all folks | 
155, 986 
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172A 2987 .END —_- UETUNASOO 
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UE TUNASOO VAX/VMS UETP DEVICE TEST FOR THE UNA 1 “SEP -19 4 1:37:49 YAX/ VMS Macro V v04-00 Page 7 
Psect synopsis “SEP=1984 04:26:50 (CUETP.SRCJUETUNASOO.MAR; 1 (31 
tee renee en en wen nnn + 
! | Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
AB ‘ op08 0 ( my 0 ( 9.) NOPIC USR ABS LCL NOSHR NOFXE NORD NOWRT NOVEC BYTE 
$aBS$ 0000000 < -) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA B38 B4 ( gb8 ) ¢ ( §°} PIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RWDATA 000 aS ( g-) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM B08 98 ( ; -» 046 ¢ 4.) PIC USR CON REL LCL NOSH EXE RD WRT NOVEC BYTE 
AS 000172A ( 5930.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
bm eee me me me ee ee 
Lmanttananbethaakmananae 
Phase Page faults CPU Time Elapsed Time 
Initiatization 37 90 300: 00 07 08 00 00 «ae 
ye steer 1213: 00:00587:89 0020151963 
Symbol table sort 0 00:00:03.65  00:00:07.76 
Pass 2 822 00:00:10.43 Be Oe Reo l2 
Symbol table output 0 4 SE B28 388 
Psect synopsis output § 00:00:00.9 00:00:00.0 
Cross-reference output 4b $4 00:00:00.00 
Assembler run totals 2221 00:00:53.12 00:01:54.44 


ihe vetting set ss was 2000 pages. 
215843 bytes (422 pages) of virtual memory were used to buffer the intermediate code. 

thee: were 140 pages of symbol table space vay tol | to hold 2485 non-local and 94 Local symbols. 

2987 source Lines were read in Pass 1, produci oh object records in Pass 

69 pages of virtual memory were used to define 62 macros. 


Macro Library name Macros defined 


“$52 28DUACE: ae OBJJUETP.MLB;1 2 
“35 e250U Age: OBJJLIB.MLB; 1 1 

SDUA Sy Si BISTARL ET.MLB;2 55 
TeTAce (all Libraries) 58 
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2722 GETS were required to define 58 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:UETUNASOO/0BJ=0BJ$:UETUNASOO MSRC$:UETUNASOO/UPDATE=(ENH$:UETUNASOO) +EXECML$/LIB+LIB$:UETP/LIB 
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